WeekDay Function (BASIC)

Weekday palauttaa viikonpÀivÀn numeron pÀivÀmÀÀrÀn sarjanumerosta, joka on tuotettu funktiolla DateSerial tai DateValue.

Syntaksi:


WeekDay (luku1)

Paluuarvo:

Integer-tyypin kokonaisluku

Parametrit:

Luku1: numeerinen lauseke, jossa on pÀivÀmÀÀrÀsarjanumero, jota kÀytetÀÀn viikon pÀivÀn laskemiseen (1-7).

Seuraavassa esimerkissÀ kÀytetÀÀn WeekDay-funktiota viikonpÀivÀn mÀÀrittÀmiseen annetusta pÀivÀmÀÀrÀstÀ.

Virhekoodit:

5 Virheellinen proseduurikutsu

Esimerkki:


Sub ExampleWeekDay
Dim sDay As String
' palautetaan ja esitetÀÀn viikonpÀivÀ
    Select Case WeekDay( Now )
        Case 1
            sDay="sunnuntai"
        Case 2
            sDay="maanantai"
        Case 3
            sDay="tiistai"
        Case 4
            sDay="keskiviikko"
        Case 5
            sDay="torstai"
        Case 6
            sDay="perjantai"
        Case 7
            sDay="lauantai"
    End Select
    msgbox "" + sDay,64,"TÀnÀÀn on"
End Sub

Please support us!