Предлагаю модуль для работы с датами
Что содержит
GetDateTime -- получение текущей даты и времени в разложенном состоянии (по частям, год, месяц, день, час, минута, секунда, милисекунда)
GetTime -- получение текущго времени в разложенном состоянии (по частям, час, минута, секунда, милисекунда)
GetDate -- получение текущей даты в разложенном состоянии (по частям, год, месяц, день, час, минута, секунда, милисекунда)
IsLeapYear -- Определение того что год высокосный
GetMonthDays -- число дней в месяце
DateToNUM -- перевод даты в число дней с 01.01.0001
NUMToDate -- Перевод числа дней в дату.
DateToNUM и NUMToDate могут быть использованы для получения даты на
несколько дней вперед или назад
DayOfWeek -- Определение дня недели
так как файл довольно большой, выложил на рапиду.
http://www.rapidshare.ru/394484