Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.012 c
3-16870
Roman Go
2003-02-18 10:19
2003.03.06
Где скачать MDAC


3-16860
freeek10
2003-02-17 20:49
2003.03.06
Где можно прочитать про DAO?


1-17037
Programist
2003-02-25 10:49
2003.03.06
Траблы с поиском


3-16864
Толян
2003-02-18 09:38
2003.03.06
Индексация.


1-17131
Winni
2003-02-22 15:22
2003.03.06
Как в Делфи вызвать прерывание ? Например, прочесть сектор.