title image


Smiley Re: Tage berechnen
Wenn's nur um die Samstage und Sonntage geht, ist es einfach:Function AnzWerktage(Von As Date, Bis As Date) As LongDim Res As Long, Wochen As Long Res = DateDiff("y", Von, Bis) Wochen = DateDiff("ww", Von, Bis) Res = Res - 2 * Wochen If WeekDay(Von) = vbSunday Then Res = Res - 1 ' Korrektur für Wochenende If WeekDay(Bis) = vbSunday Then Res = Res + 1 AnzWerktage = ResEnd FunctionFür Feiertage gibt es ja regional unterschiedliche Regelungen, da ist in der Tat eine Tabelle am einfachsten. (Zur Berechnung der vom Osterdatum abhängigen Feiertage gibt den Gaussschen Osteralgorithmus - schau mal in's Archiv...)Reinhard


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: