Indhold

# Funktionen WeekDay

Denne funktionen returnerer tallet, der svarer til ugedagen, repræsenteret af et datoserie-tal, der genereres af funktionerne DateSerial eller DateValue.

Denne hjælpeside beskriver funktionen WeekDay, der bruges i Basic scripts. Hvis du er interesseret i funktionen WeekDay, der bruges i LibreOffice Calc, går du til denne hjælpeside.

### Syntaks:

      WeekDay (SerialDate, [FirstDayOfWeek])

### Parametre:

SerialDate: Heltalsudtryk, der indeholder serial dato-tallet, der bruges til at beregne ugedagen.

FirstDayOfWeek: Heltalsværdi, der angiver hvilken ugedag, der anses for ugens første dag. Standardværdien er 0, der betyder, at systemets sprogindstillinger bruges til at bestemme ugens første dag.

Parametren FirstDayOfWeek accepterer værdier fra 0 til 7. Tabellen herunder beskriver betydningen af hver mulig værdi:

Værdi | VBA-konstant | Beskrivelse
--- | --- | ---
0 | vbUseSystemDayOfWeek | Brug systemets sprogindstillinger
1 | vbSunday | Søndag (standard)
2 | vbMonday | Mandag
3 | vbTuesday | Tirsdag
4 | vbWednesday | Onsdag
5 | vbThursday | Torsdag
6 | vbFriday | Fredag
7 | vbSaturday | Lørdag

VBA-konstanterne, der er oplistet ovenfor er kun tilgængelige, hvis VBA-understøttelsen er aktiveret. Se mere information på hjælpesiden listed above are only available if VBA support has been enabled. For more information, read the udtrykket VBASupport.

### Returtype

Integer

### Fejlkoder:

5 Ugyldigt Procedurekald

### Eksempel:

Følgende eksempel bruger funktionen Now() (nu) til at bestemme den aktuelle ugedag.

    Sub ExampleWeekDay
        Dim sDay As String
        REM Returner og vis ugedagen
        Select Case WeekDay( Now )
                Case 1: sDay="søndag"
                Case 2: sDay="mandag"
                Case 3: sDay="tirsdag"
                Case 4: sDay="onsdag"
                Case 5: sDay="torsdag"
                Case 6: sDay="fredag"
                Case 7: sDay="lørdag"
        End Select
        Msgbox "" + sDay,64,"I dag er det"
    End Sub

Følgende eksempel illustrerer brugen af parameteren FirstDayOfWeek med den antagelse, at tirsdag er den første dag i ugen.

      Dim someDay As Long
      ' Datoen 1. januar 2021 var en fredag
      someDay = DateSerial(2021, 01, 01)
      ' Skriver "6", med antagelsen, at søndag er den første dag i ugen
      MsgBox WeekDay(someDay)
      ' Skriver "4" med antagelsen, at Tirsdag er den første dag i ugen
      MsgBox WeekDay(someDay, 3)

Relaterede emner

Funktionen DateSerial

Funktionen DateValue

funktionen Now

UGEDAG (på engelsk: WEEKDAY)

Støt os venligst!