Stunden über 24 Addieren

**jacky213**

Moin,

also ich habe viele Stundenangaben im Format 05:30 Stunden/Minuten.

Also zum Beispiel:

Delphi-Quellcode:

Diese Stunden und Minuten sollen alle lediglich addiert werden und
das Ergebnis soll auch nur in Stunden ausgegeben werden. Daher
also 31:30 Stunden/Minuten.

Wie schaffe ich das?

im übrigen habe ich mir da was zum umwandeln von Dezimaler Uhrzeit
zu normaler Zeit in Stunden und Minuten zusammengebastelt und finde
das es grausam aussieht (funktioniert soweit aber). Das bekommt man
sicher besser hin:

zusammenfalten · markieren

Delphi-Quellcode:

			tinfo kommt im Format 12:00

function DezToTime (tinfo:string) : String;

var

Str : String;

begin

Str := floattostr(strtofloat(tinfo) - Strtofloat(Copy(tinfo,0,Pos(',',tinfo)-1)));

Str := floattostr(strtofloat(str) * strtofloat('60'));

Str := floattostr(round(strtofloat(str)));

Result := Copy(tinfo,0,Pos(',',tinfo)-1) +':'+str;

end;

Stunden über 24 Addieren

Stunden über 24 Addieren

Forumregeln