WeekDay Function (BASIC)

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

Syntax:


WeekDay (Number)

Return value:

Entjero

Parameters:

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

Example:


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