Problema con EncodeDateTime < 1900

[[gatosoft]]

hola geolife

El problema está en que el TdateTime es en realidad un valor numérico de punto flotante, un double o un Real... y el CERO representa el año 1900, Esto no es propio de Delphi, algunos motores de base de datos de hecho tienen como bae el 1899... No se por que ni cuando se pusieron de acuerdo en eso...

puedes hacer la prueba con algo como:

Código Delphi [-]
fecha: TDateTime
fecha:= 0;
showMessage(DateToStr(Fecha));

Y te debe retornar la fecha base....

No se si haya alguna utilidadad o unidad en Delphi solucione esto.. sorry

[[geolife]]

Gracias por la información Gatosoft, TDateTime funciona como tu comentas, pero no se como pasar los datos TTime en coma flotante de una forma predecible. De hecho la función EncodeDate ya funciona bien con fechas inferiores a 1900, el problema es cuando incluimos el tiempo de horas, minutos y segundos con EncodeDateTime.

Si fuera solo cuestión de guardar la información, podríamos pasar los valores de forma separada utilizando EncodeDate y EncodeTime, el problema es que el software se encarga de realizar cálculos de tiempo utilizando años,meses,dias, horas, minutos y segundos.

En resumen tenemos:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
 A,B: TDateTime;
begin

 // Fecha: 4 febrero 1755, 1 horas 22 minutos, 22 segundos -
 A := EncodeDateTime (1755,2,4,1,22,22,1); // Uses DateUtils
 ShowMessage (DateTimeToStr(A));
 // ERROR
 // Da como resultado 5 febrero de 1755 , 22 horas 37 segundos, es decir otro resultado?
 // Obviamente uno esperaría 4 febrero 1755, 1 horas 22 minutos, 22 segundos

  A := EncodeDate (1755,2,4); B:= EncodeTime (1,12,22,1); // Uses DateUtils
  ShowMessage (DateToStr(A)+ ' '+ (TimeToStr(B)));
  // OK la visualización, pero tenemos la información en 2 variables.

  // Intentamos poner en A el valor TDateTime por seperado
  A := EncodeDate (1755,2,4); A := EncodeTime (1,12,22,1);
  ShowMessage (DateTimeToStr(A));
  // ERROR OTRA VEZ
  // ¿¿ ????
 end;
end.

, atascado con TdateTime...

[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