Thema: Delphi Arbeitszeit berechnen

Einzelnen Beitrag anzeigen

ZeroQool007

Registriert seit: 30. Aug 2004
127 Beiträge
 
#12

Re: Arbeitszeit berechnen

  Alt 14. Sep 2006, 08:07
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

HH:mm
  Mit Zitat antworten Zitat