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