Скачать: 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 вся ветка

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



Память: 0.47 MB
Время: 0.012 c