Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Дата [D5, Win95/98]

Max_ © (2003-01-30 20:21:00)
Добрый вечер.
Подскажите пожалуйста как получить разницу в днях между двумя датами. Дата1-Дата2=Количество дней
Спасибо.

Smithson (2003-01-31 11:36:00) [1]
>> D
Разница дат не есть дата! Это количество дней!

Бук (2003-01-31 11:08:00) [2]
Можно еще и через перевод в Юлианские дни.

D (2003-01-31 11:00:00) [3]
Razn:=date2-date1;
DecodeDate(Razn,KolYears,KolMonth,KolDay) ?

Романов Р.В. (2003-01-31 10:52:00) [4]
Тогда уж так
i := ABS(Trunc(date2) - Trunc(date1));

uw (2003-01-31 10:45:00) [5]
>Романов Р.В. © (30.01.03 20:46)

Нет, ему надо
i := Trunc(date2) - Trunc(date1);

Chubais (2003-01-31 09:17:00) [6]

> Slym (31.01.03 08:11)

ТЫ(ВЫ) и вправду крут!

Slym (2003-01-31 08:11:00) [7]
Вот код который использую Я, и никаких 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;

разница может быть и отрицательной!

weRUs (2003-01-31 03:43:00) [8]
Я это уже спрашивал... посмотри здесь

http://www.delphi.mastak.ru/cgi-bin/forum.pl?n=0&showpage=1&user=weRUs

Только незабудь в usesдобавить DateUtils

Все, Привет!

Anatoly Podgoretsky (2003-01-30 21:08:00) [9]
Как ответ получил?
И как ты смог сделать такое присвоение?

Романов Р.В. (2003-01-30 20:46:00) [10]
var
i: Integer;

i := Trunc(date2 - date1);

Max_ (2003-01-30 20:38:00) [11]
Я написал
date1:=20.01.03
date2:=30.03.03

date2-date1
Ответ 09.03.00

Не то получается.

Романов Р.В. (2003-01-30 20:26:00) [12]
Правильно написал.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »