Вычитание дат

Собственно проблема с сабжем...
Вот уже два часа пытаюсь написать функцию по вычитанию из датя какого либо кол-во дней, месяцев и/или лет. Что-то никак. На феврале застрял... 28, 29 дней (год высокосный или нет)... и 30 и 31 числа в месяцах...
Может у кого уже есть подобная реализация? Киньте на icebeerg@newmail.ru или ссылку для скачивания в форум.
Нехочу заново изобретать велосипед.

Эту задачу решаешь?  
http://www.mista.ru/kb/topic4437.htm;

"Непонял,
А чем не устраивает:
КонМесяца(Дата);
Возвращает последнее число месяца даты, т.е. равно количеству дней в месяце.
Разве 1С-ка не просекает високостные года?
"

Да велосипед люди изобретают

1С-ка прекрасно работает с датами и учитывает високосные годы.
Вычесть количество дней - это простое вычитание:
"дата - количество_дней" и получишь новую дату.
месяцы - стандартная: ДобавитьМесяц()

И зачем огород городить?

В общем, ДА, по заморочкам подобные бодяги уже писал...

Возможно устраивает и КонМесяца, но в сабже была просьба кинуть готовую реализацию а то вчера ну никак не писалось и не думалось.
ЗЫ Позавчера ребенку 3 года исполнилось...

А вот Вам отдельное спасибо! И на мыло и в форум инфу... Да с ДобавитьМесяц() я ступил...
Еще раз спасибо.