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

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

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

Как вычислить количество дней с определенной даты до согедня??? [D5, Win2k]

Sirus © (2002-04-30 09:53:00)
Привет...
Подскажите как можно вычислить количество дней с определенной даты до сегодняшнего дня...

Anatoly Podgoretsky (2002-04-30 13:13:00) [1]
Song © (30.04.02 13:01)
Мы написали не так! Мы написали правильно, именно количество дней, единственно, что остается так это выбор нужного алгоритма в зависимости от задачи. А вот он написал неправильно.
Вчера в чате было обсуждение, на вопрос что такое для тебя день человек ответил - это когда прошло 24 часа, для этого случая отсекать время нельзя, на ответ же это разница между датами, отсекать обязательно, так например меду двумя периодами может пройти одна секунда, но ответ будет один день.
Главное что Sirus знал что именно он хочет и тогда выюерет нужный ему вариант, за исключением последнего ответа, все остальные правильные, да и послдений тоже, просто результат представлен с дробной частью.

Song (2002-04-30 13:01:00) [2]
ууу, какой Вы умный, а мы не так написали?

Art1 (2002-04-30 12:21:00) [3]
Люди, как понимать ваши ответы: зачем просто если можна сложно?
var d1,d2,d3: TDate;
begin
d3:=d1-d2;
end;
Вот и все - разница в целых днях.

Sirus (2002-04-30 11:55:00) [4]
> Anatoly Podgoretsky © and Johnmen ©
Спасибо огромное... очень признателен что за такое короткое время получил столько ответов

Johnmen (2002-04-30 10:47:00) [5]
>Song © см. Johnmen © (30.04.02 10:24)
И попрошу мне не выкать - предпочитаю на "ты" :)

Song (2002-04-30 10:36:00) [6]
2Johnmen © (30.04.02 10:03)
Ваш вариант не совсем правильный, потому что стандартный тип TDateTime содержит составляющую Time. Для правильного определния кол-ва дней нужно отсечь эту составляющую через Trunc или DateOf

Johnmen (2002-04-30 10:24:00) [7]
>Anatoly Podgoretsky ©
Смотря как понимать вопрос : целое количество суток или житейское количество дней (это когда в 0:05 говорят про предшествующие 23:55 "вчера") :)))))

Anatoly Podgoretsky (2002-04-30 10:12:00) [8]
ABS(Trunc(D1)-Trunc(D1))

Johnmen (2002-04-30 10:03:00) [9]
... или ShowMessage(IntToStr(Round(Date-DateBegin)));

Song (2002-04-30 09:56:00) [10]
ShowMessage(IntToStr(DateOf(DateTimePicker1.Date)-DateOf(Date)));

Наверх

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