| MS2TimeStr Function | 
Unit
QESBPCSDateTime
Declaration
Function MS2TimeStr(const MS: Int64): string;
| Parameters | 
| MS | Value in Milliseconds. | 
Category
Date/Time Arithmetic RoutinesImplementation
 
| function MS2TimeStr (const MS: Int64): string;
var
     L: Int64;
     Hold: Boolean;
begin
     Hold := ESBBlankWhenZero;
     ESBBlankWhenZero := False;
     try
          L := MS;
          Result := '.' + Int2ZStr (L mod 1000, 3);
          L := L div 1000;
          Result := ':' + Int2ZStr (L mod 60, 2) + Result;
          L := L div 60;
          Result := ':' + Int2ZStr (L mod 60, 2) + Result;
          L := L div 60;
          Result := Int2EStr (L) + Result;
     finally
          ESBBlankWhenZero := Hold;
     end;
End; | 
|  |