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 opendialog控件用法

Delphi 提升Delphi 启动加载速度

Delphi搜索文件夹和文件

Delphi datasnap双缓存下载文件

Delphi combobox1dropdown 生成动态下拉列表

Delphi 生成指定范围和个数的不重复的随机整数

Delphi 手机号码库段号地区查询

Delphi idhttp post 普通提交乱码处理

Delphi读取webbrowse中的图片显示在image中

Delphi 获取文件所在路径

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

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