Difference between revisions of "ConvertTime"

From SCAR Divi Manual
Jump to: navigation, search
(Created page with "==Definition== <source lang="scar" lines="false"> procedure ConvertTime(const ms: Integer; var h, m, s: Integer); </source> ==Availability== SCAR Divi 3.00 > Current ==Descript...")
 
Line 1: Line 1:
 
==Definition==
 
==Definition==
 
<source lang="scar" lines="false">
 
<source lang="scar" lines="false">
procedure ConvertTime(const ms: Integer; var h, m, s: Integer);
+
procedure ConvertTime(const MS: Integer; out H, M, S: Integer);
 
</source>
 
</source>
  

Revision as of 13:17, 4 April 2012

Definition

procedure ConvertTime(const MS: Integer; out H, M, S: Integer);

Availability

SCAR Divi 3.00 > Current

Description

Converts a number of milliseconds given in ms into a number of hours, minutes and seconds returned in h, m and s.

Example

var
  h, m, s: Integer;
begin
  ConvertTime(1000000, h, m, s); 
  WriteLn('1000000ms is ' + IntToStr(h) + 'h, ' + IntToStr(m) + 'm, ' + IntToStr(s) + 's');
end.

Output:

1000000ms is 0h, 16m, 40s