WeekDay Function

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

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:

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

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

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

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

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

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

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

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

рдЙрджрд╛рд╣рд░рдг:

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