Funktion för veckonummer

Här i detta tips visas hur vi kan skapa vår egna funktion för att beräkna korrekt veckonummer utifrån datumangivelser.

Den medföljande funktionen i tilläggsverktyget "Analysis Toolpak" är anpassad efter amerikanska förhållanden och följer således inte svensk standard.

För en formelbaserad lösning och ytterligare diskussion kring veckonummer se också Veckonummer.

 

Option Explicit  Function VECKONUMMER(Datum As Date) As Integer '© 2002 Alla rättigheter XL-Dennis    Dim lnDatum As Long    lnDatum = DateSerial(Year(Datum - Weekday(Datum - 1) + 4), 1, 3)    VECKONUMMER = Int((Datum - lnDatum + Weekday(lnDatum) + 5) / 7) End Function