разность дат

← →
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 складывается и вычитается, если мне память не изменяет

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

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;

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

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