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

本文整理自网络，侵删。

 
 
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;
 

相关阅读 >>

Delphi 动态生成九宫格按钮

Delphi win10系统已管理员的权限运行应用程序

Delphi比较两个位图是否相同

Delphi is1251char

Delphi控制摄像头

在Delphi xe6 firemonkey移动应用程序的twebbrowser html页面上运行javascript

Delphi 操作sql 插入一万条数据 三种方式速度测试

Delphi 全局钩子锁定键盘

delph hash类

Delphi 通过程序窗体句柄获取程序路径

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 日期相减 比较大小 过期时间函数