本文整理自网络，侵删。
DateUtils.WithinPastYears();
DateUtils.WithinPastMonths();
DateUtils.WithinPastWeeks();
DateUtils.WithinPastDays();
DateUtils.WithinPastHours();
DateUtils.WithinPastMinutes();
DateUtils.WithinPastSeconds();
DateUtils.WithinPastMilliSeconds();
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}uses DateUtils;procedure TForm1.FormCreate(Sender: TObject);var t1,t2: TDateTime; b: Boolean;begin t1 := StrToDateTime('2009-5-20 11:22:33'); t2 := StrToDateTime('2009-5-21 11:22:33'); {两个时间差是否在 24 年内} b := WithinPastYears(t1, t2, 24); //True {两个时间差是否在 24 个月内} b := WithinPastMonths(t1, t2, 24); //True {两个时间差是否在 24 个周内} b := WithinPastWeeks(t1, t2, 24); //True {两个时间差是否在 24 天内} b := WithinPastDays(t1, t2, 24); //True {两个时间差是否在 24 个小时内} b := WithinPastHours(t1, t2, 24); //True {两个时间差是否在 24 分钟内} b := WithinPastMinutes(t1, t2, 24); //False {两个时间差是否在 24 秒内} b := WithinPastSeconds(t1, t2, 24); //False {两个时间差是否在 24 毫秒内} b := WithinPastMilliSeconds(t1, t2, 24); //False// ShowMessage(BoolToStr(b, True));end;end. 相关阅读 >>
Delphi程序在win7 win8 win10下自动请求以管理员身份运行
Delphi2010中Delphi class explorer妙用
Delphi windows 编程[18] - 更换菜单项: modifymenu
更多相关阅读请进入《Delphi》频道 >>
