WeekDay-funksjonen

Denne funksjonen returnerer talet som svarar til vekedagen frÄ eit serielt datotal som er laga av ein av funksjonane DateSerial ellerDateValue.

note

Denne hjelpsida forklarer WeekDay-funksjonen brukt i Basic-skript. Viss du er ute etter funksjonen «Vekedag» (WeekDay pÄ engelsk) brukt i LibreOffice Calc, sjÄ denne hjelpsida.


Syntaks:


  WeekDay (SerialDate, [FirstDayOfWeek])

Parametrar:

SerialDate: Heiltalsuttrykk som inneheld det serielle datotalet som vert brukt for Ă„ rekna ut dagen i veka.

FirstDayOfWeek: Heiltalsverdi som viser kva vekedag som skal reknast som den fĂžrste i veka. Standardverdien er 0, som betyr at dei lokale innstillingane vert brukte for Ă„ bestemma fĂžrste vekedag.

Parameteren FirstDayOfWeek godtek verdiar frÄ 0 til 7. Tebellen nedanfor viser kva dei ulike verdiane betyr:

Verdi

VBA-konstant

Skildring

0

vbUseSystemDayOfWeek

Bruk lokale innstillingar frÄ systemet

1

vbSunday

SĂžndag (stadard)

2

vbMonday

MÄndag

3

vbTuesday

Tysdag

4

vbWednesday

Onsdag

5

vbThursday

Torsdag

6

vbFriday

Fredag

7

vbSaturday

Laurdag


note

VBA-konstanten i lista ovanfor er tilgjengeleg berre nÄr VBA-konstanen er gjort tilgjengeleg. Du kan finna meir informasjon om dette pÄ hjelpsida VBASupport-uttrykk.


Returverdi:

Heiltal

Feilkodar

5 Ugyldig prosedyreoppkall

Eksempel:

I eksempelet nedanfor er funksjonen Now() brukt for Ă„ finna den gjeldande vekedagen.


Sub ExampleWeekDay
    Dim sDay As String
    ' Returnerer og viser dagen i veka
    Select Case WeekDay( Now )
            Case 1: sDay="SĂžndag"
            Case 2: sDay="MÄndag"
            Case 3: sDay="Tysdag"
            Case 4: sDay="Onsdag"
            Case 5: sDay="Torsdag"
            Case 6: sDay="Fredag"
            Case 7: sDay="Laurdag"
    End Select
    MsgBox "" + sDay,64,"Dagen i dag er"
End Sub

Eksempelet nedanfor viser bruk av parameteren FirstDayOfWeek nÄr tysdag er den fÞrste dagen i veka.


  Dim someDay As Long
  ' Datoen 1. januar 2021 var ein fredag
  someDay = DateSerial(2021, 01, 01)
  ' GÄr ut frÄ at sÞndag er den fÞrste dagen i veka og skriv «6»
  MsgBox WeekDay(someDay)
  ' GÄr ut frÄ at tysdag er den fÞrste dagen i veka og skriv «4»
  MsgBox WeekDay(someDay, 3)