LibreOffice 25.2 Hjelp
Denne funksjonen returnerer tallet som tilsvarer ukedagen representert av et seriell datonummer som genereres av funksjonene DateSerial eller DateValue.
Denne hjelpesiden beskriver WeekDay-funksjonen som brukes i grunnleggende skript. Hvis du er interessert i WeekDay-funksjonen som brukes i LibreOffice Calc, se denne hjelpesiden.
  WeekDay (SerialDate, [FirstDayOfWeek])
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 | 
VBA-konstantene oppført ovenfor er bare tilgjengelige hvis VBA-støtte er aktivert. For mer informasjon, les VBASupport Statement hjelpesiden.
Heltall
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)