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

Как определить дату предшедствующую указанной   Найти похожие ветки 

← →
AFrolov ©   (2002-11-05 10:35) [0]

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

---

← →
SaS13 ©   (2002-11-05 10:36) [1]

EncodeDate, DecodeDate

---

← →
Skier ©   (2002-11-05 10:37) [2]

>AFrolov
как вариант :
DateTimeToSystemTime(...) и
SystemTimeToDateTime(...)

---

← →
icWasya ©   (2002-11-05 11:36) [3]

TDateTime - это число суток с 1.1.1900 00:00:00

т.е. Trunc(Data2-Data1) - число суток
(Data2-Data1)*24 - число часов
(Data2-Data1)*86400 - число сукунд

---

← →
KoluChi ©   (2002-11-05 11:44) [4]


function IncDate(const ADate: TDateTime; IncYear, IncMonth, IncDay: Word): TDateTime;
begin
Result := IncMonth(ADate, IncMonth + IncYear * 12) + IncDay;
end;


Что-то в этом духе (не проверял, но должно работать)
параметры, естественно, могут быть и отрицательными.

---

← →
Рыжик ©   (2002-11-05 12:07) [5]

В Delphi6 уже есть ф-ии IncMonth, IncYear и т.п. (SysUtils)

---

← →
KoluChi ©   (2002-11-05 13:48) [6]

> В Delphi6 уже есть ф-ии IncMonth, IncYear и т.п. (SysUtils)
Они были всегда (TDateTime).

---

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

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



Память: 0.46 MB
Время: 0.011 c