Ese valor de fecha viene desde una base de datos ?? o como es que identificas que es el Delphi y no otro elemento de tu Arquitectura.
Podría ser el problema, la forma en que se interpreta el intercalado de datos o tu conexión tipo ODBC u otro elemento de conexión que este en medio entre el APP y la BD..
Existe una función para extraer los elementos de una fecha y ahi podrias ajustar siempre a tu conveniencia.
--DECODEDATE--
Returns Year, Month, and Day values for a TDateTime value.
Unit
SysUtils
Category
datetime routines
Delphi syntax:
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
Description
The DecodeDate procedure breaks the value specified as the Date parameter into Year, Month, and Day values. If the given TDateTime value has a negative (BC) year, the year, month, and day return parameters are all set to zero.
Saludos
|