WeekDay Function

Returns the number corresponding to the weekday represented by a serial date number that is generated by the DateSerial or the DateValue function.

الصياغة:


WeekDay (Number)

Return value:

عدد صحيح

المعاملات:

Number: Integer expression that contains the serial date number that is used to calculate the day of the week (1-7).

The following example determines the day of the week using the WeekDay function when you enter a date.

Error codes:

5 Invalid procedure call

مثال:


Sub ExampleWeekDay
Dim sDay As String
' Return And display the day of the week
    Select Case WeekDay( Now )
        Case 1
            sDay="Sunday"
        Case 2
            sDay="Monday"
        Case 3
            sDay="Tuesday"
        Case 4
            sDay="Wednesday"
        Case 5
            sDay="Thursday"
        Case 6
            sDay="Friday"
        Case 7
            sDay="Saturday"
    End Select
    MsgBox "" + sDay,64,"Today Is"
End Sub

Please support us!