本文整理自网络，侵删。
CompareDateTime、CompareDate、CompareTime 返回的是 -1、0、1;
前者 = 后者: 返回 0;
前者 > 后者: 返回 1;
前者 < 后者: 返回 -1;
SameDateTime、SameDate、SameTime 返回的是 True 和 False.
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;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; r1,r2,r3: Integer; b1,b2,b3: Boolean;begin {日期一致、时间不一致} t1 := StrToDateTime('2009-5-20 1:1:1'); t2 := StrToDateTime('2009-5-20 1:0:0'); r1 := CompareDateTime(t1, t2); //1 r2 := CompareDate(t1, t2); //0 r3 := CompareTime(t1, t2); //1 b1 := SameDateTime(t1, t2); //False b2 := SameDate(t1, t2); //True b3 := SameTime(t1, t2); //False {日期不一致、时间一致} t1 := StrToDateTime('2009-5-20 1:1:1'); t2 := StrToDateTime('2009-5-21 1:1:1'); r1 := CompareDateTime(t1, t2); //-1 r2 := CompareDate(t1, t2); //-1 r3 := CompareTime(t1, t2); //0 b1 := SameDateTime(t1, t2); //False b2 := SameDate(t1, t2); //False b3 := SameTime(t1, t2); //True {日期、时间都不一致} t1 := StrToDateTime('2009-5-19 1:1:1'); t2 := StrToDateTime('2009-5-20 0:0:0'); r1 := CompareDateTime(t1, t2); //-1 r2 := CompareDate(t1, t2); //-1 r3 := CompareTime(t1, t2); //1 b1 := SameDateTime(t1, t2); //False b2 := SameDate(t1, t2); //False b3 := SameTime(t1, t2); //Falseend;end. 相关阅读 >>
Delphi 实现dns上线域名解析（用于远控server）
Delphi firedac 下的 sqlite [6] - 加密
Delphi listview 导出excel txt vcf 单元
更多相关阅读请进入《Delphi》频道 >>
