mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 16:48:29 +02:00
16 lines
256 B
ObjectPascal
16 lines
256 B
ObjectPascal
program TestDateVariantConversion;
|
|
|
|
uses variants;
|
|
|
|
var dt : TDateTime;
|
|
v : variant;
|
|
s : String;
|
|
|
|
begin
|
|
dt := 40000;
|
|
v := dt;
|
|
s := v;
|
|
// It should return the date, depending on the localisation settings
|
|
if s = '40000' then halt(1);
|
|
end.
|