Excel VBA, Voorbeeld VBA-functie

Snel op weg! Voorbeeld VBA-functie (UDF), mijn_weeknummer()



Het mogelijkheden van het gebruik van VBA zijn onbeperkt. In VBA kunnen eigen Excel-functies worden geschreven. Een voorbeeld hiervan wordt hieronder gegeven. Deze functie berekent de ISO-week bij een ingegeven datum.

Function mijn_weeknummer(datumwaarde As Date) As Integer

' DatePart afkortingen
' jaar : yy , yyyy
' kwartaal : qq , q
' maand : mm , m
' dag/jaar : dy , y
' dag : dd , d
' week : wk , ww
' weekdag : dw , w
' uur : hh
' minuut : mi , n
' seconde : ss , s
' milliseconde: ms

Dim jaar As Integer
Dim beginjaar As Date
Dim weeknummer As Integer

jaar = year(datumwaarde)
beginjaar = CDate("1/1/" & CStr(jaar))

If DatePart("w", beginjaar) > 1 And DatePart("w", beginjaar) < 7 Then weeknummer = (DatePart("ww", datumwaarde))
Else weeknummer = (DatePart("ww", datumwaarde) - 1)
End If

If weeknummer = 0 Then
weeknummer = (DatePart("ww", "12/31/" & CStr(jaar - 1)))
End If

mijn_weeknummer = weeknummer

End Function



Heb je nog vragen, neem dan gerust contact met ons op.