procedure DecodeDate(const DateTime: TDateTime; var Year, Month, Day: Word)  

Извлекает из даты составляющие: год, месяц и день.

Параметры:

• DateTime - дата.
• Year - год.
• Month - месяц.
• Day - день.