Сложение и вычитание дат

← →
~ShamaN~ © (2004-07-15 09:14) [0]

Помогите пожалуйста решить следующую проблему: необходимо к дате прибавить 1 год и отнять 1 день. Делаю следующим образом:

for i:=1 to 12 do IncMonth(data);
n:=StrToInt(FloatToStr(data))-1;
data1:=StrToFloat(n);

всё работает, но только иногда разница получается не 1, а 2 дня (вероятно из-за високосности года одной из дат). Может есть более лёгкий способ решения проблемы?

← →
-SeM- (2004-07-15 09:24) [1]

Смотри модуль DateUtils, в нем целая куча IncYear, IncDay ...
data:=IncDay(IncYear(data,1),-1)

-SeM- ОГРОМНОЕ спасибо!

Сложение и вычитание дат Найти похожие ветки