Как перевести 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);

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

вывожу на печать, выводится в виде: 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 спасибо большое =) Действительно, что-то стормозил я малёк

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