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