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

Вниз

разность дат   Найти похожие ветки 

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.027 c
1-24861
Timka
2002-12-26 18:49
2003.01.09
удаление файлов


3-24788
Борис
2002-12-16 15:49
2003.01.09
UpdateSQL and NOT NULL


3-24796
Elka
2002-12-14 08:49
2003.01.09
Сохранение колонок в DBGridEh 2.5


14-25085
XMbIPb
2002-12-22 00:15
2003.01.09
---|Ветка была без названия|---


14-25010
Ru
2002-12-19 13:36
2003.01.09
Милиция





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский