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]