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

[[geolife]]

Hola LoPiTaL!,

Llevas toda la razón, la sentencia correcta para ese tipo de asignación debe ser una suma, el codigo era parte de varias pruebas y me habia quedado así...

Te agradezco tus pruebas, parece ser entonces que en versiones sucesivas de Delphi esto esta corregido, y es una buena noticia.
Me parece que me voy abocado a una actualización de Delphi.

Gracias otra vez!

Empezado por 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