Excel, Visual Basic for Applications
Voorbeeld VBA functie, 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
|
