title image


Smiley Am besten die KW nach DIN 1355 berechnen
z.B. so:



Public Function Kalenderwoche(D As Date) As Integer

'Berechnung der Kalenderwoche nach DIN 1355

Dim T As Date

T = DateSerial(Year(D + (8 - WeekDay(D)) Mod 7 - 3), 1, 1)

Kalenderwoche = (D - T - 3 + (WeekDay(T) + 1) Mod 7) \ 7 + 1

End Function





Gruß

Andreas

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: