Delphi 时间的比较

时间比较函数

1. CompareDateTime()   //比较两个时间是否相同
2. CompareDate()           //比较两个时间的日期是否相同
3. CompareTime()           //比较两个时间的时分秒是否相同
4. SameDateTime()         //比较两个时间是否相同
5. SameDate()                 //比较两个时间的日期部分是否相同
6. 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.