Cette fonction permet la conversion de l'objet de date et heure en date de format DOS.
Function DateTimeToFileDate(DateTime:TDateTime):Integer;