Problemstellung:
Berechnung und Anzeige der Netto-Arbeitstage für jeden Monat des gewählten Jahres unter
Einbeziehung einheitlicher und nicht einheitlicher Bundesfeiertage.
Voraussetzungen:
Das Bsp ist ab A07 lauffähig.
In der Tabelle "tbl_FT" werden die Einstellungen der nicht einheitlichen Feiertage gespeichert.
Das Modul "mod_Datumsberechnungen" enthält alle erforderlichen Berechnungen.
Diese entstammen zum Teil der KnowHow Base 3.0 und sind von mir angepasst worden.
Beim öffnen des Formulars werden alle Felder des ersten und letzten Tages des Monats gefüllt.
Einschließlich der Schaltjahrberechnung.
Es werden immer die Werte des derzeitig aktuellen Jahres angezeigt.
Das Jahr kann oben im Kombinationsfeld verändert werden.
Weiterhin besteht die Möglichkeit der Berechnung für 5 oder 6 Tage Arbeitswoche.
Durch das automatische Füllen der Datumsangaben erfolgt auch gleich die Berechnung der
Netto-Arbeitstage.
Es werden alle Samstage, Sonntage und bundeseinheitliche Wochenfeiertage abgezogen.
Werden nicht bundeseinheitliche Feiertage mit einem Klick in der jeweiligen Checkbox aktiviert,
wird sofort der betreffende Monat aktualisiert, genau wie auch das Jahresergebnis.
Argumente der Funktion "AnzWerktage":
Datum1 = Startdatum des Zeitraumes
Datum2 = Enddatum des Zeitraumes
intWeek = 5 oder 6 Tagewoche (0=5, 1=6)
alle restlichen optionalen Argumente repräsentieren die nicht einheitlichen Feiertage.
fHK= Heilige 3 Könige
fMH=Mariä Himmelfahrt
fRT= Reformationstag
fAL= Allerheiligen
fHA= Heiligabend
fSV= Silvester
fFL= Fronleichnam
fRM=Rosenmontag
fFD= Faschingsdienstag
fAM=Aschermittwoch
fBB =Buß- und Bettag
Als Hilfsfunktion wird die Funktion "Feiertag" benötigt. Listing s. Bsp-DB
Sie erhält als Argumente ein Datum und ebenfalls die nicht einheitlichen Feiertage:
Desweiteren kommen noch Funktionen zur Berechnung des Ostersonntags,
des Buss-und Bettages und Schaltjahres hinzu.
Beim öffnen des Formulars werden nun alle Felder der Monatsdaten gefüllt:
aktuelles Jahr (im Kombifeld)
erster Tag des Monats
letzter Tag des Monats
wurde schon nicht einheitliche Feiertage gesetzt, werden diese angezeigt.
Die errechneten Netto-Arbeitstage für alle Monate einzeln und für das gesamte Jahr.
11.08.2026
45.4 KB
5.741Ähnliche Artikel