Кто нибудь может подсказать как нарастить Дату определенное кол-во раз?

[•ScReam•™]

Здрасте Всем =-) кул-мега-хацкеры. Не могу доделать отчет. Прога с базами ADO. Есть Дата - заноситься в базу через DateTimePicker и DBEdit. Есть Срок (4, 5, 10 и т.д. лет) .... Нужно взять Дату! и нарастить ее месяц столько раз - какой стоит срок. Пример: дата 10.06.09, срок 4 года, тогда вторая запись: 10.07.09, третья: 10.08.09 четвертая: 10.09.09 и т.д. всего 48 раз (= ... Если кто знает как можно обойтись без создания новой таблицы, а сразу вносить все в отчет (freeReports, QReport) буду примного благодарен и всем раскажу что есть такой дядя ;-)
З.Ы. не очень хотелось бы использовать sql запросы - и бо дальше мне предстоит работа с этим отчетом. Да и sql я знаю на уровне ламера =)

[fbus]

например так

var y,m,d:word;
begin
    decodedate(now,y,m,d);
    y:=y+1;
    edit1.text:=datetostr(encodedate(y,m,d));

end;

[•ScReam•™]

=-) Спасибо. А я сделал так: первел в строку, разбал на части вытащив по отдельности день месяц год - нарастил месяц как int. Собрал в строку и переконвертил в date. Ах да - еще добавил цикл проверки 12-го месяца - Иф месяц > 12 тогда Год+1 а месяц пусть будет 01 =-))