求助!请高手帮忙,在线等候,求两个日期值之间的天数

liping3388 2003-10-17 10:23:18
如何求出两个日期值之间相差多少天
...全文
33 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
hnhb 2003-10-17
  • 打赏
  • 举报
回复
uses DateUtils;
...
...
var
i:Integer;
begin
i:=DaysBetween(日期1,日期2)+1; // i为日期1和日期2的天数
end;
dulei115 2003-10-17
  • 打赏
  • 举报
回复
或者:
trunc(Datetime1)-trunc(Datetime2)
noil0125 2003-10-17
  • 打赏
  • 举报
回复
uses DateUtils

function DaysBetween(const ANow, AThen: TDateTime): Integer;
zhaojinghui 2003-10-17
  • 打赏
  • 举报
回复
接分
谢谢
zhaojinghui 2003-10-17
  • 打赏
  • 举报
回复
function DateToDateOfDayS(Date1,Date2:TDateTime):Integer;
begin
Result:= (DateTimeToTimeStamp(Date1).Date-DateTimeToTimeStamp(Date2).Date);
if Result<0 then Result:=-Result;
Result:=Result+1;
end;
47522341 2003-10-17
  • 打赏
  • 举报
回复
函数daysbetween(datetime1,datetime2):integer;返回值是两个日期型函数之间的整数天数;
zzh54zzh 2003-10-17
  • 打赏
  • 举报
回复
//刚才是求天数,还可以求小时数,如下:
procedure TForm1.Button1Click(Sender: TObject);
var
temp:TDateDiff;
begin
temp:=GetDateDiff(dtl.DateTime,dtf.DateTime);
edit1.Text:=intToStr(temp.days*24+temp.hours);
end;
zzh54zzh 2003-10-17
  • 打赏
  • 举报
回复
function GetDateDiff(const Date1,Date2:TDateTime):TDateDiff;
var Diff:TDateTime;
temp:TDateDiff;
begin
Diff:=abs(Date1-Date2);
temp.days:=Trunc(Diff);
Diff:=(Diff-temp.days)*24;
temp.hours:=trunc(Diff);
Diff:=(Diff-temp.hours)*60;
temp.minutes:=trunc(Diff);
Diff:=(Diff-temp.minutes)*60;
temp.seconds:=trunc(Diff);
Diff:=(Diff-temp.seconds)*1000;
temp.mseconds:=trunc(Diff);
Result:=temp;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
temp:TDateDiff;
begin
temp:=GetDateDiff(dtl.DateTime,dtf.DateTime);
edit1.Text:=intToStr(temp.days);
end;
hongqi162 2003-10-17
  • 打赏
  • 举报
回复
procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
n:=daysbetween(DateTimePicker1.DateTime,DateTimePicker2.DateTime);
edit1.Text:=inttostr(n);
end;
angle097113 2003-10-17
  • 打赏
  • 举报
回复
DaysBetween()函数完全可以获得时间的天数间隔

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧