WeekDay Function
Weekday palauttaa viikonpäivän numeron päivämäärän sarjanumerosta, joka on tuotettu funktiolla DateSerial tai DateValue.
Syntaksi:
WeekDay (luku1)
Palautusarvo:
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ä.
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