Конвертация времени ms в время минуты,секунды,часы.

[Человек_Борща]

Доброго времени суток!

Тестирую работу и скорость своих методов.
Хочу написать функцию которая будет определять, что это - минуты,часы,секунды,или милисекунды...

var
  StartT,EndT:LongInt;
begin
  StartT:=GetTickCount;
 {
 Операция, время выполнения которой я хочу узнать
}
 EndT:=GetTickCount-StartT; //Вря работы метода в милисекундах
 log(Format('Время выполнения: %n минут(ы).',[EndT/60/1000]));  //Результат в минутах
end;

Возвращаемый результат:
7,00 - 7 минут
7,10 - 7 минут 10 секунд
7,01 - 7 минут 1 милисекунда

Как выстроить эту логику в функции?

Заранее спасибо!

[Аватар]

var h,m,s,ms: Word;
    s1: String;
    lStart,lPeriod: TDateTime;
..
  lStart:=Now;
..
  lPeriod:=Now-lStart;
  DecodeTime(lPeriod,h,m,s,ms);
  s1:='';
  if h>0 then s1:=Format('%dчас',[h]);
  if m>0 then s1:=Trim(Format('%s %dмин',[s1,m]));
  s1:=Trim(Format('%s %dсек %dмсек',[s1,s,ms]));
  Label1.Caption:=s1;

для секунд и милисекунд тоже можете анализ на 0 добавить

[Человек_Борща]

не совсем то=) Если я правильно понял..

вот что мне нужно:


теперь не могу понять как её составить

function MsToTime(ms: LongInt): string;
const
  sResult = '%d h. %d m. %d s. %d ms.';
  // минимум времени в мс для:
  cH = 3600000; // час
  cM = 60000; // Минута
  cS = 1000; // Секунда
var
  itH, itM, itS: integer; // hour,min,sec
begin
  itH := 0;
  itM := 0;
  itS := 0;
  if ms >= cH then
  begin
    itH:=Round(ms/60/60/1000);
    ms:=ms-(itH*60*60*1000);
  end
  else
  begin
    if ms >= cM then
    begin

    end
    else
    begin
      if ms >= cS then
      begin

      end
      else
      begin
        if ms > 0 then
        begin
          Result := Format(sResult, [itH, itM, itS, ms]);
        end
        else
        begin
          ms := 0;
          Result := Format(sResult, [itH, itM, itS, ms]);
        end;
      end;
    end;
  end;
end;

Имеет ли смысл делать что-то по 2 раза?
Может goto применить(Вернётся ли назад компилятор, после выполнения кода по метке goto)?


P.S. как жаль в RAD удалили возможность рисовать diagram'ы=)
Собственно только из-за этого d7 и держу

[Аватар]

Чуть подправив я и предлагаю вернуть в строке только не нулевые, например 1час 5сек

  s1:='';
  if h>0 then s1:=Format('%dчас',[h]);
  if m>0 then s1:=Format('%s %dмин',[s1,m]);
  if s>0 then s1:=Format('%s %dсек',[s1,s]);
  if ms>0 then s1:=Format('%s %dмсек',[s1,ms]);
  Label1.Caption:=Trim(s1);

[Человек_Борща]

Благодарен! Ставлю плюс.

function MSToTime(aPeriod: TDateTime): string;
var
  h, m, s, ms: Word;
  s1: String;
begin
  DecodeTime(aPeriod, h, m, s, ms);
  s1 := '';
  if h > 0 then
    s1 := Format('%d ч.', [h]);
  if m > 0 then
    s1 := Format('%s %d м.', [s1, m]);
  if s > 0 then
    s1 := Format('%s %d с.', [s1, s]);
  if ms > 0 then
    s1 := Format('%s %d мс.', [s1, ms]);
  Result := Trim(s1);
end;

Иногда вещи проще чем кажутся....