Pomoc LibreOffice 25.2
Ta funkcja zwraca liczbę odpowiadającą dniu tygodnia reprezentowanemu przez kolejny numer daty, który jest generowany przez funkcje DateSerial lub DateValue.
Ta strona pomocy opisuje funkcję WeekDay używaną w skryptach Basic. Jeśli interesuje Cię funkcja WeekDay używana w programie LibreOffice Calc, zapoznaj się z tą stroną pomocy.
  WeekDay (SerialDate, [FirstDayOfWeek])
SerialDate: Wyrażenie całkowite zawierające kolejny numer daty, który jest używany do obliczania dnia tygodnia.
FirstDayOfWeek: Wartość całkowita wskazująca, który dzień tygodnia należy uznać za pierwszy dzień tygodnia. Wartość domyślna to 0, co oznacza, że do określenia pierwszego dnia tygodnia używane są ustawienia regionalne systemu.
Parametr FirstDayOfWeek przyjmuje wartości z zakresu od 0 do 7. Poniższa tabela opisuje znaczenie każdej możliwej wartości:
| Wartość | Stałe VBA | Opis | 
|---|---|---|
| 0 | vbUseSystemDayOfWeek | Używanie ustawień regionalnych systemu | 
| 1 | vbSunday | niedziela (domyślnie) | 
| 2 | vbMonday | poniedziałek | 
| 3 | vbTuesday | wtorek | 
| 4 | vbWednesday | środa | 
| 5 | vbThursday | czwartek | 
| 6 | vbFriday | piątek | 
| 7 | vbSaturday | sobota | 
Wymienione powyżej stałe VBA są dostępne tylko wtedy, gdy włączona jest obsługa języka VBA. Aby uzyskać więcej informacji, przeczytaj stronę pomocy Instrukcja VBASupport.
Liczba całkowita
Poniższy przykład używa funkcji Now() do określenia bieżącego dnia tygodnia.
Sub ExampleWeekDay
    Dim sDay As String
    ' Zwraca i wyświetla dzień tygodnia
    Select Case WeekDay( Now )
            Przypadek 1: sDay="niedziela"
            Przypadek 2: sDay="poniedziałek"
            Przypadek 3: sDay="wtorek"
            Przypadek 4: sDay="środa"
            Przypadek 5: sDay="czwartek"
            Przypadek 6: sDay="piątek"
            Przypadek 7: sDay="sobota"
    End Select
    MsgBox "" + sDay,64,"Dzisiaj jest"
End Sub
Poniższy przykład ilustruje użycie parametru FirstDayOfWeek przy założeniu, że wtorek jest pierwszym dniem tygodnia.
  Dim someDay As Long
  ' Data 1 stycznia 2021 r. to piątek
  someDay = DateSerial(2021, 01, 01)
  ' Wypisuje "6", zakładając, że niedziela jest pierwszym dniem tygodnia
  MsgBox WeekDay(someDay)
  ' Wypisuje "4", zakładając, że wtorek jest pierwszym dniem tygodnia
  MsgBox WeekDay(someDay, 3)