Problema con EncodeDateTime < 1900

[LoPiTaL]

Tal vez ya te has dado cuenta, o ha sido al ponerlo en el navegador, pero la última parte de tu código está mal.

Debería ser:

Código Delphi [-]
  // Intentamos poner en A el valor TDateTime por seperado
  A := EncodeDate (1755,2,4) + EncodeTime (1,12,22,1);  //Debes sumar fecha y hora, si no, 
                                                                              //sólo te quedará en A la hora, a fecha base (1900)
  ShowMessage (DateTimeToStr(A));                             //Debería ir bien ahora
  // ERROR OTRA VEZ
  // ¿¿ ????

Sólo por curiosidad, he probado en XE2 y en Delphi 2010 y el error está corregido: la sentencia

Código Delphi [-]
A := EncodeDateTime (1755,2,4,1,22,22,1); // Uses DateUtils

funciona correctamente.

Un saludo,
LoPiTaL