перевести TTime в количество секунд

← →
Dmitry_177 (2007-10-29 02:03) [0]

Подскажите как перевести TTime в секунд?

← →
boa_kaa © (2007-10-29 02:08) [1]

умножить

← →
Германн © (2007-10-29 02:11) [2]

> boa_kaa © (29.10.07 02:08) [1]
>
> умножить
>

На количество секунд в сутках.

← →
Dmitry_177 (2007-10-29 02:12) [3]

т.е. будет в переменной типа t: TTime к примеру "1 ч. 28 м. 20 с." это будет 5300 секунд.. на скольколь нужно умножить t?

← →
Dmitry_177 (2007-10-29 02:13) [4]

Германн, на 86400?

← →
boa_kaa © (2007-10-29 02:14) [5]

20 + 28 * 60 + 1 * 3600

← →
Dmitry_177 (2007-10-29 02:19) [6]

получилось:

Edit1.Text := IntToStr(Round(Frac(DateTimePicker1.Time) * 86400));

> Dmitry_177 (29.10.07 02:12) [3]
>
> т.е. будет в переменной типа t: TTime к примеру "1 ч. 28
> м. 20 с."

Такого в переменной TTime не было, нет и не будет никогда.

перевести TTime в количество секунд Найти похожие ветки