Problema con EncodeDateTime < 1900

[[geolife]]

Hola Casimiro!

Si!, en general a partir de 1900 hacia adelante funciona perfectamente, pero en fechas inferiores el resultado es completamente erróneo, da una fecha distinta a la introducida La verdad es que no tengo más remedio que usar esta función, para codificar los formatos de fecha y tiempo de una forma homogénea en cualquier región, pero nada!!

No he tenido oportunidad de probar en otras versiones de Delphi más actuales a la 7, solo probé en Lazarus el ejemplo adjunto y funciona bien.

Nota: Según la ayuda de Delphi, el año admite valores desde 1 a 9999, con lo que debería funcionar..., pero algo falla!

datetime routines

Delphi syntax:

function EncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word):TDateTime;

Description

EncodeDateTime returns a TDateTime from the values specified as the AYear, AMonth, ADay, AHour, AMinute, ASecond, and AMilliSecond parameters.

The year must be between 1 and 9999.

Empezado por Casimiro Notevi

¿Y con un año más actual funciona bien?, ejemplo: 2012