本文整理自网络,侵删。
uses DateUtils;//比较两个日期是否大于20天function Comparisondate(t1,t2:TDateTime): Boolean;beginresult:=false;if DaysBetween(t1,t2)>20 thenbeginresult:=True;end;end;
相关阅读 >>
Delphi tstringlist 保存txt文本文件最后一行不留空行
Delphi与用windows 7下的用户账户控制(uac)机制
更多相关阅读请进入《Delphi》频道 >>