Converter Segundos em Horas, minutos e segundos.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| // É necessário estar declarado Sysutils na seção uses.
// Nas versões mais recentes, declare System.SysUtils.
{ Nesta forma já impede a inserção de valores negativos,
além de suportar um valor maior de entrada de segundos. }
function SecondToTime( Segundos : Cardinal ) : String;
var
Seg, Min, Hora: Cardinal;
begin
Hora := Segundos div 3600;
Seg := Segundos mod 3600;
Min := Seg div 60;
Seg := Seg mod 60;
Result := FormatFloat(',00', Hora) + ':' +
FormatFloat('00', Min) + ':' +
FormatFloat('00', Seg);
end;
// Exemplo de uso
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(SecondToTime(84523));
end; |
// É necessário estar declarado Sysutils na seção uses.
// Nas versões mais recentes, declare System.SysUtils.
{ Nesta forma já impede a inserção de valores negativos,
além de suportar um valor maior de entrada de segundos. }
function SecondToTime( Segundos : Cardinal ) : String;
var
Seg, Min, Hora: Cardinal;
begin
Hora := Segundos div 3600;
Seg := Segundos mod 3600;
Min := Seg div 60;
Seg := Seg mod 60;
Result := FormatFloat(',00', Hora) + ':' +
FormatFloat('00', Min) + ':' +
FormatFloat('00', Seg);
end;
// Exemplo de uso
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(SecondToTime(84523));
end;
Post Views: 7.324
-
InfusTec
-
- 0 comentários
- 12 de março de 2015
