5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
mdejtod 2006-08-14
- 打赏
- 举报
最简单的~~两个日期相减就好了~
var d: tdate;
d1:string;
d1:= inttostr(trunc(date - d)); // 整数
var d: tdate;
d1:string;
d1:= inttostr(trunc(date - d)); // 整数
lwk_hlj 2006-08-14
- 打赏
- 举报
关于日期的问题，可以去dateutils中去找，
在help中，search dateutils，你会看到每个function或prodcue 的详细说明！
在help中，search dateutils，你会看到每个function或prodcue 的详细说明！
wudi_1982 2006-08-14
- 打赏
- 举报
DaysBetween
jabcf 2006-08-14
- 打赏
- 举报
uses DateUtils;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=inttostr(DaysBetween(datetimepicker1.date,datetimepicker2.date));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=inttostr(DaysBetween(datetimepicker1.date,datetimepicker2.date));
end;
janezjtjdx 2006-08-14
- 打赏
- 举报
use DateUtils
function DaysBetween(const ANow, AThen: TDateTime): Integer;
function DaysBetween(const ANow, AThen: TDateTime): Integer;
