Arbeitszeit berechnen

[norbert3]

Hey Jürgen,
es hat sich wieder mal so ein Schusselfehler eingeschlichen.

Norbert :wall:

[ZeroQool007]

Hallo habe folgenden Quellcode

Delphi-Quellcode:

var
  von : TDateTime;
  bis : TDateTime;
  Pause : TDateTime;

begin
  StBar_Auftraege.Panels[0].Text := FormatDateTime('dddddd.mm.yyyy', Now);
  von := StrToTime('08:00');
  bis := StrToTime('17:00');
  Pause := StrToTime('00:30');

...
   DTP_ZeitVon.DateFormat        := dfShort;
   DTP_ZeitVon.Kind              := dtkTime;
   DTP_ZeitVon.Time              := StrToTime(FormatDateTime('hh:mm', von));
   DTP_ZeitBis.DateFormat        := dfShort;
   DTP_ZeitBis.Kind              := dtkTime;
   DTP_ZeitBis.Time              := StrToTime(FormatDateTime('hh:mm', bis));
   DTP_PauseInMinuten.Time       := Pause;

...

Nun zu meinem Problem...im DateTimePicker zeigt er mir 05:00 anstatt 17:00. Weiß jemand woran es liegt? danke im voraus



edt
hat sich erledigt, lag am Format

Delphi-Quellcode:

HH:mm