WeekDay Function

हप्ताको दिन(नम्बर)

Sub ExampleWeekDay

Dim sDay As String

REMले हप्ताको दिन फर्काउँछ र प्रदर्शन गर्दछ ।

    Select Case WeekDay( Now )

        Case 1

            sDay="आइतबार"

        Case 2

            sDay="सोमबार"

        Case 3

            sDay="मंगलबार"

        Case 4

            sDay="बुधबार"

        Case 5

            sDay="बिहिबार"

        Case 6

            sDay="शुक्रबार"

        Case 7

            sDay="शनीबार"

    End Select

    सन्देशबाकस "" + sDay,64,"आज हो"

End Sub