обратная функции MinuteOfTheDay();

[Dozent]

есть такая замечательная функция MinuteOfTheDay

MinuteOfTheDay(StrToTime('02:00:00' )); , будит 120 минут

Подскажите обратную функцию плз как из минут получить временя?

[Манжосов Денис :)]

Можно самому сделать

function GetHour(a: integer): string;
begin
  Result := IntToStr(a div 60) + ' : ' IntToStr(a mod 60);
end;

[Dozent]

Сообщение от Манжосов Денис :)

Можно самому сделать

function GetHour(a: integer): string;
begin
  Result := IntToStr(a div 2) + ' : ' IntToStr(a mod 2);
end;

Чо за чуш?)
это быдит выглядить 60:0, мне надо в формате 00:00:00
И тогда уж надо делить на 60 а не на два...

[Dozent]

function GetHour(a: integer): Ttime;
var str:string;
begin
   str:=IntToStr(a div 60) + ' : ' + IntToStr(a mod 60)+ ':00';
  Result :=StrToTime(str);
end;

procedure TForm1.Button4Click(Sender: TObject);
var a:TTime;
begin
Showmessage(TimeToStr(GetHour(150)));
end;

Сделал, извиняюсь за грубость, спосибо за идею!