Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.31;
Скачать: CL | DM;

Вниз

Уважаемые Мастера!   Найти похожие ветки 

 
DeNNiss   (2002-01-14 13:40) [0]

Такой вопрос: мне нужно получить количество часов между заданными датами, например между 01.01.02 15:00 и 17.01.02 19:00. Как это сделать, что-то у меня переклинило, вопрос-то несложный. Заранее спасибо.


 
SergVlad   (2002-01-14 14:08) [1]

"Зри в корень"

TDateTime - это double тип.
Целая часть - число суток
Дробная - часть одних суток
Вычитая из большей даты меньшую получаешь разницу в днях и части дня: Delta.

Число часов = int(Delta*24)


 
Vitaly   (2002-01-14 14:15) [2]

var t1, t2: TDateTime;
begin
t1 := StrToDateTime("01.01.2002 12:00");
t2 := StrToDateTime("01.01.2002 13:00");
caption := IntToStr( trunc(24*(t2-t1)) );
end;


Учти, что между этими датами еще 0 часов.



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

Текущий архив: 2002.01.31;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.004 c
4-100107
Chup
2001-12-03 12:21
2002.01.31
CreateProcess


14-100054
Феликс
2001-12-10 23:12
2002.01.31
Билл Гейтс:


3-99909
Igor_thief
2001-12-28 15:53
2002.01.31
BDE


1-100015
Yuraz
2002-01-14 18:04
2002.01.31
Не могу разобраться, как определить размер файла???


1-99957
Дима М
2002-01-13 14:49
2002.01.31
Вопрос





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