WeekDay Function

WeekDay (Number)

Sub ExampleWeekDay

Dim sDay As String

REMནང་འཇུག་བྱས་པའི་ཚེས་གྲངས་ནི་གཟའ་འཁོར་ག་རེ་ཡིན་པ་ཕྱིར་ལོག་གམ་མངོན་པར་བྱེད་

    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