主页 / user-362214

durumdara's questions

Martin Hope
durumdara
Asked: 2024-08-02 21:20:23 +0800 CST
  • 6

以下示例演示了该问题：

var
   fdt, fndt : Double;
   dt, dt2 : TDateTime;
begin
    dt := EncodeDateTime(2023, 12, 31, //
        20, 10, 5, 100);
    dt2 := EncodeTime(20, 10, 5, 100);
    fdt := Frac(dt);
    fndt := Frac(dt2);
    Memo1.Lines.Add('Equal: ' + BoolToStr(fdt = fndt, True) + CRLF + //
        FloatToStr(fdt) + CRLF +  //
        FloatToStr(fndt) + CRLF +  //
        FormatDateTime('HH:NN:SS ZZZ', fdt) + CRLF +  //
        FormatDateTime('HH:NN:SS ZZZ', fndt) + CRLF +  //
        ''
        );
    Exit;

结果是：

 Equal: False 
 0,840336805558763 
 0,840336805555556 
 20:10:05 100
 20:10:05 100

因此，正如您所看到的，时间部分与 Double 不同，但与格式化字符串相同。

为什么它们不同？

据我所知，EncodeDateTime 执行的是 EncodeDate + EncodeTime。并且 Date = Trunc(Date)。因此小数部分必须相同！但事实并非如此。为什么？也许是一些时区信息？

感谢您提供关于此的任何信息。

环境：Win 11，Delphi S10，32 位 Exe。时区：欧洲/布达佩斯 (+2/+1)。

datetime