Текущий архив: 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
