| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сложение и вычитание дат [D7, WinXP]
~ShamaN~ © (2004-07-15 09:14:00)Помогите пожалуйста решить следующую проблему: необходимо к дате прибавить 1 год и отнять 1 день. Делаю следующим образом:
for i:=1 to 12 do IncMonth(data);
n:=StrToInt(FloatToStr(data))-1;
data1:=StrToFloat(n);
всё работает, но только иногда разница получается не 1, а 2 дня (вероятно из-за високосности года одной из дат). Может есть более лёгкий способ решения проблемы?
~ShamaN~ (2004-07-15 09:32:00) [1]-SeM-ОГРОМНОЕ спасибо!
-SeM- (2004-07-15 09:24:00) [2]Смотри модуль DateUtils, в нем целая куча IncYear, IncDay ...
data:=IncDay(IncYear(data,1),-1)
| |
