LibreOffice 25.8 Hjælp
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.
  WeekDay (SerialDate, [FirstDayOfWeek])
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 lokalitetsindstillinger 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 lokalitetsindstillinger | 
| 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.
Integer
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)