Форум: "Основная";
Текущий архив: 2003.02.10;
Скачать: [xml.tar.bz2];
ВнизДата Найти похожие ветки
← →
Max_ (2003-01-30 20:21) [0]Добрый вечер.
Подскажите пожалуйста как получить разницу в днях между двумя датами. Дата1-Дата2=Количество дней
Спасибо.
← →
Романов Р.В. (2003-01-30 20:26) [1]Правильно написал.
← →
Max_ (2003-01-30 20:38) [2]Я написал
date1:=20.01.03
date2:=30.03.03
date2-date1
Ответ 09.03.00
Не то получается.
← →
Романов Р.В. (2003-01-30 20:46) [3]var
i: Integer;
i := Trunc(date2 - date1);
← →
Anatoly Podgoretsky (2003-01-30 21:08) [4]Как ответ получил?
И как ты смог сделать такое присвоение?
← →
weRUs (2003-01-31 03:43) [5]Я это уже спрашивал... посмотри здесь
http://www.delphi.mastak.ru/cgi-bin/forum.pl?n=0&showpage=1&user=weRUs
Только незабудь в uses добавить DateUtils
Все, Привет!
← →
Slym (2003-01-31 08:11) [6]Вот код который использую Я, и никаких DateUtils:
uses Sysutils;
function DateReason(d1,d2::TDateTime):integer;
var
ds1,ds2:TTimeStamp;
begin
ds1:=DateTimeToTimeStamp(d1);
ds2:=DateTimeToTimeStamp(d2);
result:=ds1.Date-ds2.Date;
end;
разница может быть и отрицательной!
← →
Chubais (2003-01-31 09:17) [7]
> Slym (31.01.03 08:11)
ТЫ(ВЫ) и вправду крут!
← →
uw (2003-01-31 10:45) [8]>Романов Р.В. © (30.01.03 20:46)
Нет, ему надо
i := Trunc(date2) - Trunc(date1);
← →
Романов Р.В. (2003-01-31 10:52) [9]Тогда уж так
i := ABS(Trunc(date2) - Trunc(date1));
← →
D (2003-01-31 11:00) [10]Razn:=date2-date1;
DecodeDate(Razn,KolYears,KolMonth,KolDay) ?
← →
Бук (2003-01-31 11:08) [11]Можно еще и через перевод в Юлианские дни.
← →
Smithson (2003-01-31 11:36) [12]>> D
Разница дат не есть дата! Это количество дней!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.10;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c