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

Как перевести DateTime в минуты?   Найти похожие ветки 

← →
Евгений Владимирович   (2006-08-01 17:40) [0]

Как правильно перевести интервал времени (DateTime) в минуты и вывести на печать как количество минут?

---

← →
Desdechado ©   (2006-08-01 17:49) [1]

TDateTime - это количество суток.
Сколько в них минут, думаю, посчитать несложно.

---

← →
sniknik ©   (2006-08-01 18:05) [2]

интервал (разница между концом и началом) в минутах

dt, dd: TDateTime;
...
ShowMessage(IntToStr(Round((dd - dt) * 1440)));

---

← →
stone ©   (2006-08-01 18:19) [3]

MinutesBetween()

---

← →
Desdechado ©   (2006-08-01 19:16) [4]

Уточню себя - количество суток от начала отсчета.
Интервал имеет тип Double - это просто количество суток между концом и началом.

---

← →
Fay ©   (2006-08-01 23:58) [5]

Чё-то мне кажется, что афтару нужно курить DecodeTime

---

← →
Германн ©   (2006-08-02 01:36) [6]

> Fay ©   (01.08.06 23:58) [5]
>
> Чё-то мне кажется, что афтару нужно курить DecodeTime
>

В подобных случаях, лично я, предпочитаю пользовать FormatDateTime.

---

← →
Евгений Владимирович   (2006-08-08 19:16) [7]

TMyOtchet = record
...
SumInterval  : array [0..100] of TdateTime;
MinutInterval  : array [0..100] of Double;
...
Вычисляется  MyOtchet.SumInterval[i] как продолжительность какого-то события. Например, результат составляет одни сутки,   3 часа,  10 минут.
...
MyOtchet.MinutInterval[i]:= MyOtchet.SumInterval[i]*24*60;  // перевожу в минуты, получилось 1630 минут, в таком виде надо вывести на печать
sheet.cells[10+i,8]:= MyOtchet.MinutInterval[i];  // вывожу на печать, выводится в виде: 17.06.1904 0:00:00  
Подскажите, как правильно выполнить преобразование.

---

← →
Shaman_ ©   (2006-08-08 19:55) [8]

MyOtchet.MinutInterval[i]:= MyOtchet.SumInterval[i]*(24*60);

---

← →
Shaman_ ©   (2006-08-08 19:57) [9]

нажал случайно на ДОБАВИТЬ :)
MyOtchet.MinutInterval[i]:= MyOtchet.SumInterval[i]*(24*60);
В итоге здесь долны быть минуты. Если не работает, смотри, под отладчиком где ты намудрил

---

← →
Shaman_ ©   (2006-08-08 20:00) [10]

вывожу на печать, выводится в виде: 17.06.1904 0:00:00
потому что на печать выводишь как TDateTime и у тебя идет преобразование через DateTiteToStr а должно быть FloatToStr
Кстати не мешало бы сначала округлить значение до целых

---

← →
fishka   (2006-08-09 09:27) [11]

sheet.cells[10+i,8]:= MyOtchet.MinutInterval[i];  // вывожу на печать

Наверно, надо писать так : вывожу в Excel. А уже в Excel (с помощью Delphi) надо поставить формат ячейки (столбца...).

---

← →
Евгений Владимирович   (2006-08-09 14:52) [12]

fishka спасибо большое =) Действительно, что-то стормозил я малёк

---

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

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



Память: 0.47 MB
Время: 0.044 c