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; |
|