Cette fonction permet la conversion de l'objet de date et heure en format de date à partir de l'an 1.

Function DateTimeToTimeStamp(DateTime:TDateTime):TTimeStamp;