Cette fonction permet d'encoder les variables d'année (Year), mois (Month) et jour (Day) dans un enregistrement «TDateTime».
Function EncodeDate(Year, Month, Day: Word): TDateTime;