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

Вниз

Помогите посчитать часы   Найти похожие ветки 

← →
ruslan_as   (2003-12-15 11:51) [0]

Есть две даты: "01.12.2003 12:00:00" и "04.12.2003 8:00:00".
Как посчитать количество часов между этими датами?
Вопрос конечно не сложный, но разобраться не могу.
Заранее спасибо всем, кто поможет...

---

← →
Anatoly Podgoretsky   (2003-12-15 11:52) [1]

В сутках 24 часа!

---

← →
ruslan_as   (2003-12-15 11:57) [2]

>>Anatoly Podgoretsky
Это я где-то читал...
А если серьезно то какими функциями получить эту разницу. Когда я делаю так
IntTMP:=DM.QWORKDATEEND.AsDateTime-DM.QWORKDATEBEGIN.AsDateTime;
ShowMessage(TimeToStr(IntTMP));
То у меня на экране 20:00:00.

---

← →
Anatoly Podgoretsky   (2003-12-15 11:59) [3]

Операция умножения (*) тебе нужна

---

← →
ruslan_as   (2003-12-15 12:08) [4]

??? Отдельно считать даты, потом умножать на 24, а потом отдельно время считать?

---

← →
Anatoly Podgoretsky   (2003-12-15 12:10) [5]

В школу в третий класс, там проходят преобразование из одних единиц измерения в другие.

---

← →
Плохиш_   (2003-12-15 12:10) [6]

>ruslan_as © (15.12.03 11:57) [2]

Будешь удивлён HoursBetween

---

← →
Silver Alex   (2003-12-15 12:16) [7]

HourSpan

---

← →
Erik   (2003-12-15 12:17) [8]

(Trunc(DM.QWORKDATEEND.AsDateTime)-Trunc(DM.QWORKDATEBEGIN.AsDateTime))*24
Все. Результат Integer

---

← →
ruslan_as   (2003-12-15 12:18) [9]

>>Плохиш_
Спасибо! А минуты это MinutesBetween...

---

← →
Плохиш_   (2003-12-15 12:24) [10]

>ruslan_as © (15.12.03 12:18) [9]

А F1?

---

← →
ALEIIIKA   (2003-12-18 15:14) [11]

var
T1,T2 : Double;
begin
T1 := StrToDateTime("01.12.2003 12:00:00");
T2 := StrToDateTime("04.12.2003 8:00:00");
T2 := T2-T1;
T2 := Round(T2*24);
end;

---

← →
Amoeba   (2003-12-18 16:01) [12]

Скачай библиотеку ф-й для работы с временем и датами ESBDates

---

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

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

Наверх

Память: 0.46 MB
Время: 0.01 c