Forum: Object-Pascal / Delphi-Language
Delphi
by norbert3,
25. Mai 2006
Hey Jürgen,
es hat sich wieder mal so ein Schusselfehler eingeschlichen.
Norbert :wall:
Forum: Object-Pascal / Delphi-Language
Delphi
by norbert3,
25. Mai 2006
Hey leute,
man sieht den Wald vor lauter Bäumen nicht :mrgreen:
procedure TForm2.DBEdit5Click(Sender: TObject);
var bis, pause,von: TDateTime;
begin
(*Werte holen*)
try
pause := StrToDateTime(DBEdit3.Text); //Pause
Forum: Object-Pascal / Delphi-Language
Delphi
by norbert3,
25. Mai 2006
Hallo Leute,
Sorry, dass ich eure Lösungen nicht gleich übernommen habe.
Danke trotzdem .
Mfg Norbert
Forum: Object-Pascal / Delphi-Language
Delphi
by norbert3,
25. Mai 2006
hallo Leute,
ich denke so sollte es funktionieren.
(*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);
Forum: Object-Pascal / Delphi-Language
Delphi
by norbert3,
25. Mai 2006
Danke erstmal für die schnelle Antwort. Ich werde es heute mal probieren.
Mfg Norbert
Forum: Object-Pascal / Delphi-Language
Delphi
by norbert3,
24. Mai 2006
Hallo an alle,
ich habe ein Problem beim errechnen meiner Arbeitszeit.
Um die Zeitdifferenz zwischen Start- und Endzeit minus der Pause zu ermitteln, habe ich folgenden Code benutzt.
(*Zeit berechnen*)
DBEdit5.Text :=formatdatetime('h,mm',strtotime(DBEdit4.Text) //Ende der Arbeitszeit
-strtotime(DBEdit2.Text)-Strtotime(DBEdit3.Text)); // Anfang und Pause der Arbeitszeit
...