title image


Smiley Kalenderwochenermittlung per VBA
stammt nicht von mir sondern von www.excel-xls.de



Function DINKw(dat As Date) As Integer

Dim a As Integer

a = Int((dat - DateSerial(Year(dat), 1, 1) + _

((WeekDay(DateSerial(Year(dat), 1, 1)) + 1) _

Mod 7) - 3) / 7) + 1

If a = 0 Then

a = DINKw(DateSerial(Year(dat) - 1, 12, 31))

ElseIf a = 53 And (WeekDay(DateSerial(Year(dat), 12, 31)) - 1)Mod 7 <= 3 Then

a = 1

End If

DINKw = a

End Function

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: