delphi - 从 EndOfTheMonth(date) 到 Variant 值的错误转换

Question

我有一个变体类型的 TDateTime 值(我从 EndOfTheMonth(date) 获得的结果)。结果四舍五入错误。让我们看一下示例:

  data := EndOfTheMonth(date);
  V := data;
  ShowMessage(DateTimeToStr(data) + ' vs ' + VarToStr(V));
 // output is
 // data = 2012-01-31 23:59:59
 // v    = 2012-02-01            // why next day?

这是设计好的行为吗？如何解决这个问题？

Answer 1

ShowMessage(DateTimeToStr(data) + ' vs ' + DateTimeToStr(VarToDateTime(V)));

更新:我猜问题是该月的最后毫秒非常接近第二天的 0:00:00，即 TDateTime值(基本上是一个 double)非常接近整数(例如 41029.9999999884 非常接近 41029)，因此 VarToStr 函数假定小数是数字模糊。