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.

Syntax:


WeekDay (Number)

დაბრუნებული მნიშვნელობა:

Integer

Parameters:

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:

D'oh! You found a bug (text/sbasic/shared/00000003.xhp#err5 not found).

მაგალითი:


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