Udregne arbejdstid - frokost problemer

Hvad skal:
  tidsforskel - tidspunkt
give ?

jeg forstår ikke helt dit regne stykke

Der her der virker i hvertfald :

procedure UdregnDag(Const WorkArrive, WorkDeparture, LuncArrive, LunchDeparture : TTime; var WorkHours, LunchHours : TTime);
begin
  LunchHours := LunchDeparture - LuncArrive;
  WorkHours := WorkDeparture - WorkArrive - LunchHours;
end;

procedure TForm20.FormCreate(Sender: TObject);
var
  WorkArrive, WorkDeparture, LuncArrive, LunchDeparture, WorkHours, LunchHours : TTime;
begin
  WorkArrive := StrToTime('08:00');
  WorkDeparture := StrToTime('16:00');
  LuncArrive := StrToTime('12:00');
  LunchDeparture := StrToTime('12:30');
  UdregnDag(WorkArrive, WorkDeparture, LuncArrive, LunchDeparture, WorkHours, LunchHours);
  Label1.Caption := 'Arbejdstid : ' + TimeToStr(WorkHours);
  Label2.Caption := 'Frokosttid : ' + TimeToStr(LunchHours);
end;

Jens B

vil gerne have det sådan at man skal indtaste 3 tal, mødt tid, gået tid, og så hvor lang tid man har holdt frokost, men når jeg prøver det så, kommer den tilbage med nogen mærkelige tal :\
når jeg fx går sådan her med dit eks :\ jeg ville da mene det skulle virke på samme måde  :(

procedure UdregnDag(Const WorkArrive, WorkDeparture, LunchTime: TTime; var WorkHours, LunchHours : TTime);
begin
  LunchHours := LunchTime;
  WorkHours := WorkDeparture - WorkArrive - LunchHours;
end;

procedure TForm20.FormCreate(Sender: TObject);
var
  WorkArrive, WorkDeparture, LunchTime, WorkHours, LunchHours : TTime;
begin
  WorkArrive := StrToTime('08:00');
  WorkDeparture := StrToTime('16:00');
  LunchTime := StrToTime('00:30');
  UdregnDag(WorkArrive, WorkDeparture, LunchTime, WorkHours, LunchHours);
  Label1.Caption := 'Arbejdstid : ' + TimeToStr(WorkHours);
  Label2.Caption := 'Frokosttid : ' + TimeToStr(LunchHours);
end;

Dit problem ligger ikke i den kode du har postet her... Jeg har lige lavet et nyr projekt og kopieret koden, det fungerer perfekt.

I øvrigt kan du gøre sådan her med LunchTime i stedet for :
LunchTime := 0.5 / HoursPerDay;

Jens Borrisholt

kan det have noget at gøre med at jeg bruger DateTimePicker?
for den her virker:
UdregnDag(WorkArrive, WorkDeparture, LunchTime, WorkHours);

Men det gør den her ikke:
UdregnDag(dtpMan1.Time, dtpMan2.Time, dtpManF.Time, WorkHours);

men indholdet er det samme? :\ mødt 08:45, gået 17:15, frokost 00:30. den første giver 08:00, og den anden giver 16:00 :\