WeekDay Function

Denne funksjonen returnerer tallet som tilsvarer ukedagen representert av et seriell datonummer som genereres av funksjonene DateSerial eller DateValue.

note

This help page describes the WeekDay function used in Basic scripts. If you are interested in the WeekDay function used in LibreOffice Calc, refer to this help page.


Syntaks:


  WeekDay (SerialDate, [FirstDayOfWeek])

Parametre:

SerialDate: Heltallsuttrykk som inneholder seriedatonummeret som brukes til ĂĽ beregne ukedagen.

FirstDayOfWeek: Heltallsverdi som indikerer hvilken ukedag som bør anses som den første dagen i uken. Standardverdien er 0, noe som betyr at systeminnstillingene brukes til ü bestemme den første dagen i uken.

Parameteren FirstDayOfWeek godtar verdier fra 0 til 7. Tabellen nedenfor beskriver betydningen av hver mulig verdi:

Verdi

VBA konstant

Beskrivelse

0

vbUseSystemDayOfWeek

Bruk lokale innstillinger for systemet

1

vbSunday

Søndag (standard)

2

vbMonday

Mandag

3

vbTuesday

Tirsdag

4

vbWednesday

Onsdag

5

vbThursday

Torsdag

6

vbFriday

Fredag

7

vbSaturday

Lørdag


note

The VBA constants listed above are only available if VBA support has been enabled. For more information, read the VBASupport Statement help page.


Returverdi:

Heltall

Feilkoder

5 Ugyldig prosedyreoppkall

Eksempel:

Følgende eksempel bruker funksjonen Now() for ü bestemme gjeldende ukedag.


Sub ExampleWeekDay
    Dim sDay As String
    ' GĂĽ tilbake og vis ukedagen
    Select Case WeekDay( Now )
            Tilfelle 1: sDay="Søndag"
            Tilfelle 2: sDay="Mandag"
            Tilfelle 3: sDay="Tirsdag"
            Tilfelle 4: sDay="Onsdag"
            Tilfelle 5: sDay="Torsdag"
            Tilfelle 6: sDay="Fredag"
            Tilfelle 7: sDay="Lørdag"
    End Select
    MsgBox "" + sDay,64,"I dag er"
End Sub

Følgende eksempel illustrerer bruksparameteren FirstDayOfWeek, forutsatt at tirsdag er den første dagen i uken.


  Dim someDay As Long
  Datoen 1. januar 2021 var en fredag
  someDay = DateSerial(2021, 01, 01)
  ' Skriver ut "6" forutsatt at søndag er den første dagen i uken
  MsgBox WeekDay(someDay)
  ' Skriver ut "4" forutsatt at tirsdag er den første dagen i uken
  MsgBox WeekDay(someDay, 3)