Ukedag funksjon

Innhold
Innholdsliste 🔎︎

# WeekDay Function

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

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

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)

Lignende emner

DateSerial Function

DateValue Function

Now Function

WEEKDAY