本文整理自网络，侵删。
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 tms web core js callproc
Delphi 2009 之 tstringbuilder 类[6]: equals
Delphi xe android 使用system.zip单元释放资源文件
Delphi研究之驱动开发篇（七）--利用共享内存与用户模式
Delphi 2009 泛型容器单元(generics.collections)[3]: tstack<t>
更多相关阅读请进入《Delphi》频道 >>
