Текущий архив: 2003.01.09;
Скачать: CL | DM;

Вниз

разность дат   Найти похожие ветки 

← →
mer ©   (2002-12-27 07:17) [0]

Как програмно узнать кол-во дней между двумя датами (например 25.12.02 и 27.12.02 2 дня)???

---

← →
VAleksey ©   (2002-12-27 07:25) [1]

Date1 - Date2
Вот собственно и все :)

---

← →
Misha   (2002-12-27 07:35) [2]

Unit DateUtils;
function DaysBetween(const ANow, AThen: TDateTime): Integer;

---

← →
Vovchik_A   (2002-12-27 09:36) [3]

Дата, вообще-то как Double складывается и вычитается, если мне память не изменяет

---

← →
izyum ©   (2002-12-27 09:38) [4]

Если в стандартных библиотеках ничего полезного не нашел, пишешь примрно такой код:

function DateTimeMinusDateTime(dt1, dt2: TDateTime): integer;
var
t1, t2: TTimeStamp;
i1, i2: comp;
begin
t1:=DateTimeToTimeStamp(dt1);
t2:=DateTimeToTimeStamp(dt2);
i1:=TimeStampToMSecs(t1);
i2:=TimeStampToMSecs(t2);
result:=Round((i1-i2)/1000);
end;

Данный код возвращает количество секунд между двумя датами.
Можно было обойтись и без такого количества переменных, но для наглядности...

---

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

Текущий архив: 2003.01.09;
Скачать: CL | DM;

Наверх

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