Скачать: CL | DM;

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

← →
~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)


---

← →
~ShamaN~ ©   (2004-07-15 09:32) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.04 c