WeekDay funkcija (BASIC)

Grąžina skaičių, atitinkantį savaitės dieną, nurodytą serijimiu datos numeriu, kurį sugeneruoja „DateSerial“ arba „DateValue“ funkcija.

Sintaksė:


WeekDay (numeris)

Grąžinimo reikšmė:

Sveikasis skaičius

Parametrai:

Numeris: sveikoji išraiška, kurioje yra eilės datos numeris, naudojamas savaitės dienai (1–7) apskaičiuoti.

Šis pavyzdys nustato savaitės dieną naudodamas „WeekDay“ funkciją, kai įvedate datą.

Klaidos kodai:

5 Neteisingas procedūros iškvietimas

Pavyzdys:


Sub ExampleWeekDay
Dim sDay As String
' Grįžti ir rodyti savaitės dieną
    Select Case WeekDay( Now )
        Case 1
            sDay="Sekmadienis"
        Case 2
            sDay="Pirmadienis"
        Case 3
            sDay="Antradienis"
        Case 4
            sDay="Trečiadienis"
        Case 5
            sDay="Ketvirtadienis"
        Case 6
            sDay="Penktadienis"
        Case 7
            sDay="Šeštadienis"
    End Select
    MsgBox "" + sDay,64,"Šiandien yra"
End Sub