[Terio]

Добрый день!
У меня следующий вопрос по работе с датами:
Допустим имеется переменная starttime:=date;
Поскажите пожалуйста, как увеличить startime, например, на 5 дней не преобразуя тип переменной в integer.
Пробовал через DecodeDate, работает, но возникает проблема с количеством дней в месяце. Процедура не понимает что в этом месяце 29, а в следующем 31 день и увеличивает число строго на заданное количество дней. Возникает полная кривота (вроде 34 февраля ).
Заранее спасибо!

[Terio]

Черт, все просто:

var StartTime:TdateTime;
Begin
StartTime:=date; //текущая дата;
ShowMessage(datetostr(starttime));
StartTime:=StartTime+5;
ShowMessage(datetostr(starttime));
end;

На одной моей машине такая вариация работает, на другой нет Видать,Дельфя криво стоит