1type
2  TDateTimePart = (dpYear, dpMonth, dpDay, dpHour, dpMinute, dpSecond, 
3    dpDayOfWeek);

Или

01type
02  TDateTimePart = TOleEnum;
03const
04  dpYear = $00000000;
05  dpMonth = $00000001;
06  dpDay = $00000002;
07  dpHour = $00000003;
08  dpMinute = $00000004;
09  dpSecond = $00000005;
10  dpDayOfWeek = $00000006;

Элементы перечисления:

Имя	Значение	Назначение
dpYear	0	Год
dpMonth	1	Месяц
dpDay	2	День
dpHour	3	Час
dpMinute	4	Минута
dpSecond	5	Секунда
dpDayOfWeek	6	День недели