[fpc-pascal] Implicit conversion problem with TDate type

[Gabor Boros]

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?

Gabor
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal