Hallo,
Ich habe ein Problem.
Ich will ein Progamm schreiben wo man die Überstunden ausrechnen kann, soweit noch kein Problem.
Aber wenn jetzt einer z.B. eine Nachtschicht hätte werden mir bis zum regulären Arbeitszeit ende die fehlenden Stunden ausgegeben. Aber wenn ich über diese Stunden drüber bin fängt er auf einmal an von 24 Uhr Rückwärts ab zu ziehen. Es zeigt mir dann also nicht die richtigen Überstd. an. Kann das irgendwie sein das Delphi die Zeiten nicht so rechnet wie man es sonst machen würde?
Bsp.: von 22:00:00 bis 06:00:00 bei 08:00:00 Std. Arbeitszeit.
solange es 06:00:00 ist zeigt er 00:00:00 Überstd. an bei 06:01:00
zeigt er dann 23:59:00 überstd. an. ???
Quellcode:
Delphi-Quellcode:
procedure TForm1.BitBtn2Click(Sender: TObject);
var anft,endt,uebert,uebert1,a:TDateTime;
var h,m,s,ms:Word;
var b:string;
var z:integer;
begin
anft:=StrToTime(medt_anft.Text);
endt:=StrToTime(medt_endt.text);
a:=EncodeTime(08,0,0,0);
uebert:=endt-anft;
uebert:=uebert-a;
if uebert1 < 0 then label3.Caption:= 'noch zu Arbeiten';
if uebert1 > 0 then label3.Caption:= 'Überstunden';
medt_uebert.text:=TimeToStr(uebert1) ;
end;
Danke.
[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]