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