Преобразование минуты:секунды в секунды

← →
msm (2005-08-07 02:13) [0]

Помогите, пожалуйста, разобраться ...
Надо преобразовать величины вида "00:01" ... "999:59" (минуты:секунды) в общее количество секунд. Как это можно сделать?

← →
Джо © (2005-08-07 02:14) [1]

В одной минуте - 60 секунд.

← →
msm (2005-08-07 02:18) [2]

А как разложить "999:59" на две переменные: минут=999 и секудн=59

← →
Eraser © (2005-08-07 02:30) [3]

msm (07.08.05 02:18) [2]

А откуда взялись эти цифры? Может есть более красивый способ, чем поиск двоиточия в данной строке...

← →
Adder © (2005-08-07 02:39) [4]

>
А как разложить "999:59" на две переменные: минут=999 и секудн=59

Ну, например, воспользоваться функциями Copy, Pos и StrToInt:
var sFull,sMinut,sSecund:string; Minut,Secund:integer; ......... sFull:="999:59"; sMinut:=Copy(sFull,1,Pos(":",sFull)-1); sSecund:=Copy(sFull,Pos(":",sFull)+1,Length(sFull)-Pos(":",sFull)); Minut:=StrToInt(sMinut); Secund:=StrToInt(sSecund;)

И подумать над Eraser © (07.08.05 02:30) [3] - может, есть более красивый способ?

← →
Lexa © (2005-08-07 03:14) [5]

procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);

function TimeToSec(Time: TDateTime): integer; var h,m,s,ms:word; begin DecodeTime(Time, h, m, s, ms); h := h*3600; m := m*60; Result := h + m + s; end;

Я мал и глуп...:)

Преобразование минуты:секунды в секунды Найти похожие ветки