日期相减比较大小过期时间函数

最新推荐文章于 2024-07-27 12:13:32 发布

转载最新推荐文章于 2024-07-27 12:13:32 发布 · 850 阅读

自学delphi 专栏收录该内容

45 篇文章

订阅专栏

本文展示了如何使用Delphi语言通过日期转换和比较来计算从当前日期到某特定日期（如大运会开幕日期）之间的天数差。包括日期格式的适应性，以及正负天数的正确输出。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

var
dt1: TDate;
dt2: TDate;
begin
//比较日期,//www.delphitop.com 花了5元购买的代码

dt1 := StrToDate('2010/7/1'); //winxp 时间格式为 2011-8-4 win7下则是 2011/8/4
dt2 := StrToDate('2011/8/12');

if dt2>=dt1 then
begin
showmessage('今天距大运会开幕还有 ' + inttostr(DaysBetween(dt1, dt2)) + '天. ');
end;
if dt2<dt1 then
begin
showmessage('今天距大运会开幕还有 ' + inttostr(DaysBetween(dt1, dt2) * -1) + '天. ');
end;