WeekDay Function (BASIC)

рдорд┐рддрд┐ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рдирдореНрдмрд░рджреНрд╡рд╛рд░рд╛ рдкреНрд░рд╕реНрддреБрдд рдЧрд░рд┐рдПрдХреЛ рд╣рдкреНрддрд╛рдХреЛ рджрд┐рдирд▓рд╛рдИ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рдирдореНрдмрд░ рдлрд░реНрдХрд╛рдЙрдБрдЫ, рддреНрдпреЛ рдорд┐рддрд┐ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рд╡рд╛ рдорд┐рддрд┐ рдорд╛рди рдкреНрд░рдХрд╛рд░реНрдпрджреНрд╡рд╛рд░рд╛ рдЙрддреНрдкрдиреНрди рдЧрд░реЗрдХреЛ рд╣реБрдиреНрдЫ ред

Syntax:


рд╣рдкреНрддрд╛рдХреЛ рджрд┐рди(рдирдореНрдмрд░)

Return value:

рдЗрдиреНрдЯрд┐рдЬрд░

Parameters:

рдирдореНрдмрд░:рдЗрдиреНрдЯрд┐рдЬрд░ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓реЗ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рдорд┐рддрд┐ рдирдореНрдмрд░ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░реНрджрдЫ рдЬрд╕рд▓рд╛рдИ рд╣рдкреНрддрд╛(рез-рен)рдХреЛ рджрд┐рди рдЧрдгрдирд╛ рдЧрд░реНрдирд▓рд╛рдИ рдкреНрд░рдпреЛрдЧ рдЧрд░рд┐рдиреНрдЫ ред

рджрд┐рдПрдХреЛ рдЙрджрд╛рд╣рд░рдгрдорд╛ рд╣рдкреНрддрд╛рдХреЛ рджрд┐рди рдкреНрд░рдХрд╛рд░реНрдп рдкреНрд░рдпреЛрдЧ рдЧрд░реЗрд░ рддрдкрд╛рдИрдБрд▓реЗ рдорд┐рддрд┐ рдкреНрд░рд╡рд┐рд╖реНрдЯ рдЧрд░реЗрдХреЛ рдмреЗрд▓рд╛ рд╣рдкреНрддрд╛рдХреЛ рджрд┐рди рдирд┐рд░реНрдзрд╛рд░рдг рдЧрд░реНрджрдЫ ред

рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

Example:


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