WeekDay Function

Liveras la nombron kiu korespondas al la tago de la semajno reprezentita de la data numero generita de la funkcio DateSerial aŭ DateValue.

Sintakso:

WeekDay (Number)

Liverota valoro:

Entjero

Parametroj:

Number: Entjera esprimo kiu enhavas la datan numeron uzota por kalkuli la tagon de la semajno (1-7).

La jena ekzemplo kalkulas la tagon de la semajno per la funkcio WeekDay kiam oni enigas daton.

Error codes:

5 Nevalida procedurvoko

Ekzemplo:

Sub ExampleWeekDay

Dim sDay As String

REM Liveri kaj vidigi la tagon de la semajno

    Select Case WeekDay( Now )

        Case 1

            sDay="dimanĉo"

        Case 2

            sDay="lundo"

        Case 3

            sDay="mardo"

        Case 4

            sDay="merkredo"

        Case 5

            sDay="ĵaŭdo"

        Case 6

            sDay="vendredo"

        Case 7

            sDay="sabato"

    End Select

    msgbox "" + sDay,64,"Hodiaŭ estas"

End Sub