Delphi的又一小缺陷: TDate赋值给Variant得到varDouble而不是varDate -云博客

Delphi的又一小缺陷: TDate赋值给Variant得到varDouble而不是varDate

# windos 2024-05-05 14:40 0 22 来源：云博客

//Delphi 10.3.1 32bit, Win 7 32bitprocedure 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;