delphi – 为什么Variant在100 CE之前不能包含TDateTime？

procedure Test;
  function d1: Variant;
  var
    DDt: TDateTime;
  begin
    DDt := EncodeDate(100,1,1);
    Result := DDt;
  end;
  function d2: Variant;
  var
    DDt: TDateTime;
  begin
    DDt := EncodeDate(99,12,31);
    Result := DDt;
  end;
  procedure Writedate(V: Variant);
  begin
    Writeln(string(V));
  end;
var
  V: Variant;
begin
  V := d1;
  Writedate(V);
  V := d2;
  Writedate(V);
end;

第一次调用Writedate将成功,输出将为’01 -01-0100′.但是,第二次调用将因“无效参数”失败而失败.检查代码,您可以看到99-12-31日期的变体有一个EVariantInvalidArgError错误.

但是,如果我在TDateTime上调用FormatDateTime(‘c’,TDateTime(V)),它们都会成功.实际上,在Variant包含TDateTime的任何时刻,其日期都在100 CE之前,IDE在检查其值时将显示EVariantInvalidArgError.

看起来奇怪的是,当TDateTime可以时,Variant无法处理100之前的CE日期.这是Delphi中的一个错误吗？我发现在99和100之间有点可疑.