Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.005 c