blob: 3afa58f97cfe890a069cbdae5b865e6909fc50aa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
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.
|
