የ ሳምንት ቀን ተግባር

የ ስራ ቀን (ቁጥር)

Sub ExampleWeekDay

Dim sDay As String

' ቀን በ ሳምንት ውስጥ ይመልስ እና ያሳያል

    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

    MsgBox "" + sDay,64,"Today Is"

End Sub