WeekDay Function (BASIC)

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

Syntax:


WeekDay (Number)

Return value:

ཧྲིལ་གྲངས་

Parameters:

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

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

Error codes:

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

Example:


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

Please support us!