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

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

← →
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);

---

← →
Lexa ©   (2005-08-07 03:26) [6]

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;

---

← →
Юрий Зотов ©   (2005-08-07 04:05) [7]

> Lexa ©   (07.08.05 03:26) [6]

Result := Trunc(Frac(Time) * 86400)

И все.

---

← →
Lexa ©   (2005-08-07 04:39) [8]

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

---

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

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



Память: 0.46 MB
Время: 0.028 c