Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.05.16;
Скачать: [xml.tar.bz2];

Вниз

Как вычислить количество дней с определенной даты до согедня???   Найти похожие ветки 

 
Sirus   (2002-04-30 09:53) [0]

Привет...
Подскажите как можно вычислить количество дней с определенной даты до сегодняшнего дня...


 
Song   (2002-04-30 09:56) [1]

ShowMessage(IntToStr(DateOf(DateTimePicker1.Date)-DateOf(Date)));


 
Johnmen   (2002-04-30 10:03) [2]

... или ShowMessage(IntToStr(Round(Date-DateBegin)));




 
Anatoly Podgoretsky   (2002-04-30 10:12) [3]

ABS(Trunc(D1)-Trunc(D1))


 
Johnmen   (2002-04-30 10:24) [4]

>Anatoly Podgoretsky ©
Смотря как понимать вопрос : целое количество суток или житейское количество дней (это когда в 0:05 говорят про предшествующие 23:55 "вчера") :)))))


 
Song   (2002-04-30 10:36) [5]

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


 
Johnmen   (2002-04-30 10:47) [6]

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


 
Sirus   (2002-04-30 11:55) [7]

> Anatoly Podgoretsky © and Johnmen ©
Спасибо огромное... очень признателен что за такое короткое время получил столько ответов


 
Art1   (2002-04-30 12:21) [8]

Люди, как понимать ваши ответы: зачем просто если можна сложно?
var d1,d2,d3: TDate;
begin
d3:=d1-d2;
end;
Вот и все - разница в целых днях.


 
Song   (2002-04-30 13:01) [9]

ууу, какой Вы умный, а мы не так написали?


 
Anatoly Podgoretsky   (2002-04-30 13:13) [10]

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.05.16;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.005 c
1-49940
Miwa
2002-05-03 18:42
2002.05.16
TListBox.OnDrawItem


14-50083
HI
2002-04-04 06:41
2002.05.16
Gospoda programisti,pomogite jenjine(SOVETOM!:)


1-49950
ah
2002-05-01 16:01
2002.05.16
Почему так length(chr(9)+chr(8)+chr(0)+... + chr(56)....)= пусто


3-49861
Борис
2002-04-17 12:14
2002.05.16
Почему этот код ну очень медленно выполняется?


14-50106
anod
2002-04-06 00:12
2002.05.16
Подскажите





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский