Текущий архив: 2003.03.06;
Скачать: CL | DM;
Вниз
Увеличить на год Найти похожие ветки
← →
swamp © (2003-02-25 17:42) [0]Есть ли возможность увеличить (уменьшить) на 1 год TDateTime. +365 -365 не подходит. Decode EncodeDate тоже не предлагать. :)
← →
Юрий Федоров © (2003-02-25 17:48) [1]А чем DecodeDate\EncodeDate не подошло?
← →
Roma © (2003-02-25 17:50) [2]>swamp © (25.02.03 17:42)
IncMonth(Now, 12); // "увеличить" на год
IncMonth(Now, -12); // "уменьшить" на год
← →
jack128 © (2003-02-25 17:58) [3]Кстати IncMonth сама вызывает DecodeDate\EncodeDate - без них не как не выдет...
← →
gsu © (2003-02-25 17:59) [4]incYear
← →
Delirium^.Tremens © (2003-02-25 18:03) [5]Да нет этих Inc"ов в D5 :-) Если только RX ставить.
← →
Roma © (2003-02-25 18:12) [6]Да что с вами, отцы?!... Последствия праздника, очевидно... ;)
В D5 есть IncMonth и нет IncYear... ;)
← →
han_malign © (2003-02-25 18:14) [7]Специально для извращенцев:
uses Windows;
var
st: TSystemTime;
dt: TDateTime;
ft,dft: TFileTime;
begin
fillchar(st,sizeof(st),0);
st.wYear:=1988;
st.wMonth:=12;
st.wDay:=30;
st.wHour:=12;
SystemTimeToFileTime(st,dft);
int64(ft):=round(dt*24*60*60);
int64(ft):=int64(ft)*10000000+int64(dft);
FileTimeToSystemTime(ft,st);
inc(st.wYear);//dec(st.wYear);
SystemTimeToFileTime(st,ft);
int64(ft):=(int64(ft)-int64(dft))div 10000000;
dt:=1.0*int64(ft)/(24*60*60);
........................
- примерно так :)))
← →
Delirium^.Tremens © (2003-02-25 18:25) [8]
> Да что с вами, отцы?!... Последствия праздника, очевидно...
> ;)
>
> В D5 есть IncMonth и нет IncYear... ;)
С нами все в порядке: IncMonth - RxLib - Dateutil.pas. Если не ставить RxLib, в D5 этого нет.
← →
Романов Р.В. © (2003-02-25 18:32) [9]
> Delirium^.Tremens © (25.02.03 18:25)
IncMonth function
Returns a date shifted by a specified number of months.
Unit
Sysutils
Category
date/time routines
function IncMonth(const Date: TDateTime; NumberOfMonths: Integer): TDateTime;
← →
Roma © (2003-02-25 18:34) [10]>Delirium^.Tremens © (25.02.03 18:25)
Ну я не знаю, что такое, весна, наверно, подступает и вносит свои, "панимаишь", коррективы... ;) А F1 нажать?... ;) Я имел в виду функцию SysUtils.IncMonth, если в RxLib ее переписали - согласен на ничью... ;)
Страницы: 1 вся ветка
Текущий архив: 2003.03.06;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.022 c
