TDate赋值给Variant时注意的问题

//Delphi 10.3.1 32bit, Win 7 32bit

procedure TForm1.btnTimeToVariantClick(Sender: TObject);

var

  d:TDate;

  t:TTime;

  v:Variant;

begin

  d := Date();

  t := Time();

  v := d;

  Assert( VarType(v)=varDouble );  //通过

  v := Variant(d);

  Assert( VarType(v)=varDouble );  //通过

  v := VarFromDateTime(d);

  Assert( VarType(v)=varDate );  //通过

  v := t;

  Assert( VarType(v)=varDouble );  //通过

  v := VarFromDateTime(t);

  Assert( VarType(v)=varDate );  //通过

end;

通过上面的代码，可以看出来，如果你想把日期给Variant类型变量，并且还想让Variant的类型为日期型，即varDate，则需要用VarFromDateTime给Variant类型变量赋值。