title image


Smiley Re: Kalenderwochen
Function KW(d As Date) As Integer     t = DateSerial(Year(d + (8 - WeekDay(d)) Mod 7 - 3), 1, 1)     KW = (d - t - 3 + (WeekDay(t) + 1) Mod 7) \ 7 + 1 End Function

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: