Delphi:如何确定并清空 TDatetime 值

Question

似乎无法将 NULL 分配给 TDateTime 变量(“未分配值”)。

我想象的唯一方法是使用这样的东西:

function isNull(aDate : TDateTime) : boolean;
const NullDate = 0.0;
var aNullDate : TDatetime;
    ms : Int64;
begin
  aNullDate := NullDate;
  ms := MilliSecondsBetween(aDate,aNullDate);
  result := (ms = Int64(0));
end;

有人知道不与 0 日期值重叠的更好解决方案吗？

负的 TDateTime 值危险吗？ (作为先前目的的可用资源)

Answer 1

正如 Andreas 已经写过的那样，TDateTime类型实际上是 double ，因此不能为“空”。我用的是

const
  c_UnassignedDate = -693594;

空日期值，因为这代表不可能的日期 00/00/0000。但例如 DevExpress 使用

NullDate = -700000;
InvalidDate = NullDate + 1;

因此似乎没有一致同意的标准值，您应该选择一个适合您需要的值。