Dňa 2.11.2016 o 11:38 Michael Van Canneyt napísal(a):
On Wed, 2 Nov 2016, Gabor Boros wrote:
Hi All,
I use MWA's IBX for Firebird connection and have problem with date
parameters. Tony provided to me a test program a suggested write to
the FPC list. The simple test program is:
program Project1;
uses Variants, Sysutils;
var V: variant;
D: TDate;
begin
D := EncodeDate(2016,10,20);
V := D;
writeln('date is ',VarType(D));
end.
The result is: "date is 5" (varDouble)
If modify D: TDate; to D: TDateTime; the result is "date is 7" (varDate)
I (We) missed something or is this a bug?
Only TDateTime is automatically converted correctly to Variant.
TDate and TTime are distinct types and not automatically converted.
They are seen as doubles (the original type of TDateTime).
If Delphi prints another result, then we can look at fixing the
implementation.
Delphi7 prints 5
Of course you can use V := TDateTime(D); then prints 7
-Laco.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
