Текущий архив: 2005.09.11;
Скачать: 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 вся ветка
Текущий архив: 2005.09.11;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.009 c
