WeekDay Function

བདུན་ཕྲག་ཉིནམ (Number)

Sub ExampleWeekDay

Dim sDay As String

ཨར་ཨི་ཨེམ་ བདུན་ཕྲག་གི་་ཉིནམ་བཀྲམ་བཏོན་དང་སླར་ལོགཔ་ཨིན།

    Select Case WeekDay( Now )

        Case 1

            ཨེསི་ཉིནམ="Sunday"

        Case 2

            ཨེསི་ཉིནམ="Monday"

        Case 3

            ཨེསི་ཉིནམ="Tuesday"

        Case 4

            ཨེསི་ཉིནམ="Wednesday"

        Case 5

            ཨེསི་ཉིནམ="Thursday"

        Case 6

            ཨེསི་ཉིནམ="Friday"

        Case 7

            ཨེསི་ཉིནམ="Saturday"

    End Select

    འཕྲིན་དོན་སྒྲོམ "" + sDay,64,"Today is"

End Sub