DBEdit9能自动计算假期时间
我用了两个tdatetimepicker(用于时间起和至的输入) 和一个dbedit
我想在td_startday(一个tdatetimepicker)输入后,转移到DBEdit9时
,DBEdit9能自动计算假期时间,请教。
下面这个不行,DBEdit9(字段是int)得到的是xxxx-xx-xx
procedure TForm_add.DBEdit9Enter(Sender: TObject);
begin
dbedit9.text:=datetostr(td_endday.date-td_startday.date);
end;
如何办呢?
问题点数:60、回复次数:3Top
1 楼helodd(感动/angle)回复于 2004-09-04 12:34:14 得分 30
dbedit9.Field.Value:=datetoint(td_endday.date-td_startday.date);Top
2 楼qiliu(痴心求学)回复于 2004-09-04 15:44:02 得分 10
在adotable或adoquery的
onchange事件中Top
3 楼drift1981(delphi coder)回复于 2004-09-04 15:47:06 得分 20
uses DateUtils
procedure TForm_add.DBEdit9Enter(Sender: TObject);
begin
dbedit9.text:=inttostr(DaysBetween(td_endday.date,td_startday.date))
end;
Top




