procedure DecodeDate(const DateTime: TDateTime; var Year, Month, Day: Word)
Извлекает из даты составляющие: год, месяц и день.
Параметры: