hallo Leute,
ich denke so sollte es funktionieren.
Delphi-Quellcode:
(*Werte holen*)
pause := StrToDateTime(DBEdit3.Text); //Pause
von := StrToDateTime(DBEdit2.Text); //Von
bis := StrToDateTime(DBEdit4.Text); //bis
(*Zeit umwandeln*)
zeit := (bis - von)- pause;
DecodeTime(zeit, hour, min, sec, msec);
a := hour ;
b := (min*10)/6;
DBEdit5.Text := FloatToStr(a)+','+FloatToStr(b);
Gibt es noch eine einfachere Lösung?
Mfg Norbert