TDateTime 日期时间值的比较

最新推荐文章于 2024-07-21 11:29:29 发布

lyhoo163

最新推荐文章于 2024-07-21 11:29:29 发布

阅读量6.9k

点赞数

文章标签： delphi VCL TDateTime 编程技巧类

本文链接：https://blog.csdn.net/lyhoo163/article/details/82820263

版权

编程中，对日期类型TDateTime、TDate、TTime之间的比较和判断，很是棘手。依据本人经验，写了一个比较函数，使用中比较上手。说明如下：

1、时间TDateTime相当于是Double，即双精度数64位，它用11位表示e，53位表示精度（整数小数一起），最前面一位表示正负。

2、TDateTime的整数部分：1天=1，标准日期值，0表示公元1899-12-30，当整数部分大于0，由标准日期累加天数，小于0由由标准日期累加天数。

3、小数部分：1/1000秒=0.00000001，0 表示一天的 00:00:00 000。通过累加0.00000001计数毫秒，递加时分秒。

4、比较两个时间值，检测二值相等，只要二时间差的绝对值<0.00000001即可。这个值如果精确范围，应该是0<X<0.000000099999999。

函数定义如下：

function DataTimeCompare(D1,D2:TDateTime):integer;  // 0等于 1大于 -1小于
var k:Double;
begin
  Result:=0;
  K:=abs(D1-D2);
  if (K>=0) and (K<0.0000000099999999) then Result:=0
  else begin
     if (D1-D2)>=0 then Result:=1
                   else Result:=-1;
  end;
end;

参数TDateTime类型，同时TDate和Time，均可使用。

procedure TForm1.Button1Click(Sender: TObject);
var mydate1,mydate2,mydate3,mydate4: TDateTime;
    T1,T2:TTime;

begin
  T1 := EncodeTime(0, 0, 0, 0);
  T2 := EncodeTime(0, 0, 0, 1);

  mydate1 := EncodeDateTime(2018, 10, 1, 0, 0, 0, 0);
  mydate2 := EncodeDateTime(2018, 10, 1, 0, 0, 0, 1);
  mydate3 := EncodeDateTime(2018, 10, 1, 0, 0, 0, 2);
  Edit1.text:=Format('%.8f', [mydate1]);
  Edit2.text:=Format('%.8f', [mydate2]);
  Edit3.text:=Format('%.8f', [mydate3]);
  Showmessage(IntToStr(DataTimeCompare(mydate1,mydate1)));
  Showmessage(IntToStr(DataTimeCompare(mydate2,mydate1)));
  Showmessage(IntToStr(DataTimeCompare(mydate1,mydate2)));
                                                          }
  Showmessage(IntToStr(DataTimeCompare(T2,T2)));
  Showmessage(IntToStr(DataTimeCompare(T1,T2)));
  Showmessage(IntToStr(DataTimeCompare(T2,T1)));
end;

注意单元中，加入Uses DateUtils,