Minuten in Std:Min umwandeln

[noowner]

Moin,
mit diesem kleine Code könnt
ihr eine bestimmte Anzahl vom Minuten
(Im Code Edit1.Text!)
in Das Format "x Stunden und y Minuten" umwandeln:

Delphi-Quellcode:

function MakeString(Min, Std: Integer): string;
var
  Std: Integer;
begin
  Std := Min div 60;
  Min := Min mod 60;

  result := IntToStr(Std) + ' Stunden und ' + IntToStr(Min) + ' Minuten';
end;

Sehr kurz ginge es auch so:

Delphi-Quellcode:

function MakeString(Min, Std: Integer): string;
begin
  result := IntToStr(Min div 60) + ' Stunden und ' + IntToStr(Min mod 60) + ' Minuten';
end;

Viel Spaß damit!
noowner

[edit=Matze]Himitsus Versionen übernommen und als Funktionen verpackt. Diese sind etwas besser als die ursprüngliche. Mfg, Matze[/edit]