Moin,
also ich habe viele Stundenangaben im Format 05:30 Stunden/Minuten.
Also zum Beispiel:
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:
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;