Module
Contents
Index 🔎︎

# WeekDay Function

DateSerial ཡང་ན་ DateValue རྟེན་གྲངས་ཀྱིས་སྐྱེ་གྲུབ་བྱུང་བའི་ལས་ཀའི་ཉིན་ (གོ་རིམ་དང་མཐུན་པའི་ཚེས་གྲངས་མཚོན་) གྱི་ཕན་ཚུན་ལྟོས་ཟླའི་གྲངས་ཀ་ཕྱིར་ལོག་བྱེད།

## བརྡ་འཕྲོད་

    WeekDay (Number)

## ཕྱིར་ལོག་ཐང་

ཧྲིལ་གྲངས་

## ཁུགས་གྲངས་

Number ཧྲིལ་གྲངས་ཀྱི་མཚོན་ཚུལ་ལ་གཟའ་འཁོར་གཅིག་ ( 1 ནས་ 7 སྤྱད་དེ་མཚོན་དགོས་) ནང་གི་ཉིན་ག་ཚོད་ཡིན་པའི་གོ་རིམ་ཚེས་གྲངས་རྩིས་རྒྱག་ལ་སྤྱོད་པར་འདུས་ཡོད།

གཤམ་གྱི་མཚོན་དཔེར་ WeekDay རྟེན་གྲངས་སྤྱད་ནས་ནང་འཇུག་བྱས་པའི་ཚེས་གྲངས་ནི་རེས་གཟའ་ག་རེ་ཡིན་པ་གཏན་འཁེལ་བྱེད་དོ།

## Error codes:

5 ནུས་མེད་ཀྱི་བརྒྱུད་རིམ་འཁོར་སྤྱོད་

## དཔེ་གཞི་

    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