Juhu klappt wunder bar
Hier mal das Gesamtergebnis für alle anderen.
Delphi-Quellcode:
Function Arbeitstage( Beginn,Ende:TDateTime):LongInt;
Var Tage:Integer;
i :Integer;
Begin
Tage := 0;
i := 1;
While Beginn <= Ende do Begin
If DayOfWeek(Beginn) in [2..6] Then
Inc( Tage );
Beginn := Beginn + i;
End;
Result := Tage;
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
EditTage.Text := IntToStr (Arbeitstage (Beginn.Date,Ende.Date));
end;
end.
Nun stehe ich schon vor dem nächsten Problem
das heißt es ist nur ein kleines.
Das einbinden von Feiertagen.
Bei festen Tagen wie Silvester oder Weihnachten sollte es keine Probleme geben,
aber wie berechne ich z.B Pfingsten oder Ostern.