TAMBIK, вот написал:
delphi Код:
function MsekToString(msek: integer): string;
var
min, sek: string;
begin
msek:= msek div 1000;
min:= IntToStr(msek div 60);
sek:= IntToStr(msek mod 60);
if Length(min) = 1 then min:= '0' + min;
if Length(sek) = 1 then sek:= '0' + sek;
Result:= min + 'мин ' + sek + 'сек';
end;