Arbeitstage berechnen

[LogoPie]

Hallo Leutz

Ich möchte anhand von von zwei Daten sprich z.B. 02.01.05 und 12.02.05
die Arbeitz bzw. die Urlaubstage Berechnen.
Wie stelle ich das an hat jemand ein Beispiel.
Natürlich ohne Wochendende und Feiertage.

[Sharky]

Hai LogoPie,

als erstes brauchst Du eine Liste aller Feiertage (abhängig vom Bundesland) Dann könntest Du einfach in einer Schleife prüfen ob das Datum X ein Arbeitstag ist.

[toms]

Delphi-Quellcode:

Function NumWorkDays( StartDate,EndDate:TDateTime):LongInt;
Var Workdays:LongInt;
Begin
  WorkDays := 0;
  While StartDate <= EndDate do Begin
    If DayOfWeek(StartDate) in [2..6] Then
       Inc( WorkDays );
    StartDate := StartDate + 1;
  End;
  Result := WorkDays;
End;

(Feiertag Pruefung muss noch eingebaut werden)

[LogoPie]

schon mal vielen dank,
Aber wie krieg ich das in mein Programm.
Habe drei TEdit felder.
In die ersten beiden soll der Benutzer das Datum von bis eingeben (12.01.05 bis 29.01.05)
Die Rechnung soll durch einen Button ausgelöst werden.
Ergebnis soll im dritten Edit angezeit werden.
Ergebnis wäre 13 Urlaubstage ohne Wochenende [2..6]
gruß LogoPie

[Sharky]

Hai LogoPie,

ich würde für die Datumseingabe keine Edits nehmen sonder TDateTiemPicker. Dann einfach mit dem Code von toms:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  EditTage.Text := IntToStr (NumWorkDays (DateTimePicker1.Date,DateTimePicker2.Date));
end;

[LogoPie]

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.

[Treffnix]

Für Ostern gibt es hier eine Funktion von Flomei. Pfingsten lässt sich glaube ich aus Ostern berechnen ( + 40 Tage oder so? ). Karfreitag ist Ostersonntag - 2, Ostermontag ist logischerweise Ostersonntag + 1 ( ).
Heiligabend, Weihnachten, Silvester, 1.Mai sind dagegen wahnsinnig kompliziert

*edit* mir fällt gerade ein, dass das mit den 40 Tagen die Fastenzeit war, und 40 Tage nach Ostern auch gar kein Wochenende ist, aber Pfingsten ist afair auch irgendwie abhängig von Ostern.

[kiar]

schau bei den schweizern

http://www.swissdelphicenter.ch/de/showcode.php?id=1278

raik

[Sharky]

Hai,

wie Treffnix schon sagte sind die meisten Kirchlichen-Feiertage von Ostern abgeleitet. Dafür findest Du sicher eine Liste.
Aber wie ich schon sagte: Du musst die Regelungen der einzelnen Bundesländer beachten.

[kiar]

und hier noch ne erweiterung

http://www.swissdelphicenter.ch/de/f...sche+feiertage

raik