суммирование времени

← →
syte_ser78 © (2006-05-30 08:44) [0]

Как выполнить сабж?

Допустим есть переменная
allTime :TDateTime

хранящая значение 23:50:10

прибавляем значение 1:00:00 получаем - 0:50:10 а хотелось бы или 24:50:10 или 1 0:50:10

← →
ЮЮ © (2006-05-30 09:02) [1]

хотелось бы или 24:50:10

25 часов в сутках что ли?

или 1 0:50:10

а с чего ты взял, что 1 там нет?
TDateTime = вешественное число в формате <число дней>.<часть суток>

З.Ы. как выведешь, так и покажет, хоть и 24:50:10

← →
SergP © (2006-05-30 09:08) [2]

> хранящая значение 23:50:10
>
> прибавляем значение 1:00:00 получаем - 0:50:10

с чего ты это взял?

> а хотелось бы или 24:50:10 или 1 0:50:10

Ну это зависит от того как ты TDateTime в строку преобразовываешь...

← →
syte_ser78 © (2006-05-30 09:33) [3]

делаю TimeToStr(allTime)
получаю 0:50:10

делаю DateTimeToStr(allTime)
получаю 1:1:1900 0:50:10

для второго типа

Result := TimeToStr(allTime);
if allTime > 1 then
Result := FloatToStr(Int(allTime )) + " " + Result;

для первого типа разложить время на составляющие (DecodeTime) получить часы, как сутки * 24 * часы и вывести часы минути и секунду в нужном виде

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