title image


Smiley Kalenderwoche nach Din 1355
Hallo ist es möglich den Code so zu ändern das er für 2 Tabellen ist Name der Tabellen ( 1 Halbjahr , 2 Halbjar )

Function D_KALENDERWOCHE(dat As Date) As Integer

'Kalenderwoche nach DIN 1355

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 = D_KALENDERWOCHE(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

D_KALENDERWOCHE = a

End Function

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: