Cette procédure permet d'extraire d'un enregistrement «TDateTime» dans les variables d'année (Year), mois (Month) et jour (Day).

Procedure DecodeDate(Date: TDateTime; Var Year, Month, Day: Word);