Delphi时间的⽐较
时间⽐较函数
CompareDateTime() //⽐较两个时间是否相同
delphi appCompareDate() //⽐较两个时间的⽇期是否相同
CompareTime() //⽐较两个时间的时分秒是否相同
SameDateTime() //⽐较两个时间是否相同
SameDate() //⽐较两个时间的⽇期部分是否相同
SameTime() //⽐较两个时间的时分秒是否相同
前3个函数 的返回值是-1,0,1
前者 < 后者 返回 -1
前者 = 后者 返回 0
前者 > 后者 返回 1
后3个函数的返回值是True,False
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils,DateUtils;
var
date1,date2:TDateTime;
r1,r2,r3:Integer;
b1,b2,b3:Boolean;
begin
date1:= StrToDateTime('2019-08-08 10:01:00');  date2:= StrToDateTime('2019-08-08 10:00:00');
r1:=compareDatetime(date1,date2);//1
r2:=CompareDate(date1,date2); //0
r3:=CompareTime(date1,date2); //1
b1:=SameDateTime(date1,date2);//FALSE
b2:=SameDate(date1,date2);//TRUE
b3:=SameTime(date1,date2);//FALSE
date1:= StrToDateTime('2019-08-08 10:01:00');  date2:= StrToDateTime('2019-08-08 10:02:00');
r1:=compareDatetime(date1,date2);//-1
r2:=CompareDate(date1,date2); //0
r3:=CompareTime(date1,date2); //-1
b1:=SameDateTime(date1,date2);//FALSE
b2:=SameDate(date1,date2);//TRUE
b3:=SameTime(date1,date2);//FALSE
date1:= StrToDateTime('2019-09-08 10:01:00');  date2:= StrToDateTime('2019-08-08 10:01:00');
r1:=compareDatetime(date1,date2);//1
r2:=CompareDate(date1,date2); //1
r3:=CompareTime(date1,date2); //0
b1:=SameDateTime(date1,date2);//FALSE
b2:=SameDate(date1,date2);//FALSE
b3:=SameTime(date1,date2);//TRUE
end.