Форум: "Основная";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
Вниз
Как определить дату предшедствующую указанной Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c
