Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.01;
Скачать: 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 вся ветка

Текущий архив: 2004.08.01;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.037 c
4-1087810017
Subdigger
2004-06-21 13:26
2004.08.01
CreateProcess


14-1089799403
Rostislav Rotaru
2004-07-14 14:03
2004.08.01
А какая разница на чем писать программы?


14-1089951029
Глеб
2004-07-16 08:10
2004.08.01
Сохранение изображения в 3D Studio MAX


1-1090424383
Василий
2004-07-21 19:39
2004.08.01
Проблемы с регистрацией типов файлов


14-1089225291
VID
2004-07-07 22:34
2004.08.01
Простой вопрос о настройке сети между двумя компами