请问如何得出两个日期之间的天数

greatnose 2003-08-19 09:37:36
给定两个日期,如何得到这两个日期
之间的间隔.
如19990213 到20001123
...全文
33 22 打赏 收藏 转发到动态 举报
写回复
用AI写文章
22 条回复
切换为时间正序
请发表友善的回复…
发表回复
timgreen 2003-08-20
  • 打赏
  • 举报
回复
那有没有求两个时间之间的毫秒数的function啊
ly_liuyang 2003-08-20
  • 打赏
  • 举报
回复
Trunc(DateTime直接减)

DaysBetween也可以,记得Uses DateUtils;
td427 2003-08-20
  • 打赏
  • 举报
回复
用DaysBetween,事先引用DateUtils
fang3103 2003-08-20
  • 打赏
  • 举报
回复
直接相减。。。。。。。。
zhelern 2003-08-20
  • 打赏
  • 举报
回复
天数=DateTime1.value-DateTime2.value
sanjin 2003-08-20
  • 打赏
  • 举报
回复
直接相减
yongxin800 2003-08-20
  • 打赏
  • 举报
回复
select datediff(year[month,day],startdate,enddate)
Little2000 2003-08-20
  • 打赏
  • 举报
回复
引用DateUtils单元后,用
function DaysBetween(const ANow, AThen: TDateTime): Integer;
charles2118 2003-08-20
  • 打赏
  • 举报
回复
我不知道,所以学习ing
yangxjn 2003-08-20
  • 打赏
  • 举报
回复
问如何得出两个日期之间的天数
function CountDay(D1,D2:TDateTime):integer;
begin
Result := Abs(Trunc(D1 - D2));
end;

记得Uses DateUtils;
tears0 2003-08-20
  • 打赏
  • 举报
回复
function DaysBetween(const ANow, AThen: TDateTime): Integer;

hp0773 2003-08-20
  • 打赏
  • 举报
回复
就是
还摆什么臭架子
气愤!
bluespy 2003-08-20
  • 打赏
  • 举报
回复
DaysBetween
hiflower 2003-08-20
  • 打赏
  • 举报
回复
我看不惯 jmjunta(junta) 这种人,知道了就说,还什么EMAIL
fuyifan 2003-08-19
  • 打赏
  • 举报
回复
function DaysBetween(const ANow, AThen: TDateTime): Integer;
lw549 2003-08-19
  • 打赏
  • 举报
回复
相减,取整!
hch_45 2003-08-19
  • 打赏
  • 举报
回复
这个函数
function CountDay(D1,D2:TDateTime):integer;
begin
Result := Abs(Trunc(D1 - D2));
end;
jmjunta 2003-08-19
  • 打赏
  • 举报
回复
其实不用这么麻烦,有一个函数就是计算这用的,和我联系jmjunta@163.com
Spqk005 2003-08-19
  • 打赏
  • 举报
回复
var
day1,day2:TDateTime;
i: Extended;
begin
day1:=strtodate('1999-02-03');
day2:=strtodate('1999-02-23');
i := Int(day1)-Int(day2);
showmessage(FloatToStr(i));
end;
Spqk005 2003-08-19
  • 打赏
  • 举报
回复
var
day1,day2:TDateTime;
i: Extended;
begin
day1:=strtodate('1999-02-03');
day2:=strtodate('1999-02-23');
i := Int(day1)-Int(day2);
showmessage(FloatToStr(i));
end;
加载更多回复(2)

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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