WeekDay Function (BASIC)
рдорд┐рддрд┐ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рдирдореНрдмрд░рджреНрд╡рд╛рд░рд╛ рдкреНрд░рд╕реНрддреБрдд рдЧрд░рд┐рдПрдХреЛ рд╣рдкреНрддрд╛рдХреЛ рджрд┐рдирд▓рд╛рдИ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рдирдореНрдмрд░ рдлрд░реНрдХрд╛рдЙрдБрдЫ, рддреНрдпреЛ рдорд┐рддрд┐ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рд╡рд╛ рдорд┐рддрд┐ рдорд╛рди рдкреНрд░рдХрд╛рд░реНрдпрджреНрд╡рд╛рд░рд╛ рдЙрддреНрдкрдиреНрди рдЧрд░реЗрдХреЛ рд╣реБрдиреНрдЫ ред
рд╣рдкреНрддрд╛рдХреЛ рджрд┐рди(рдирдореНрдмрд░)
рдЗрдиреНрдЯрд┐рдЬрд░
рдирдореНрдмрд░:рдЗрдиреНрдЯрд┐рдЬрд░ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓реЗ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рдорд┐рддрд┐ рдирдореНрдмрд░ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░реНрджрдЫ рдЬрд╕рд▓рд╛рдИ рд╣рдкреНрддрд╛(рез-рен)рдХреЛ рджрд┐рди рдЧрдгрдирд╛ рдЧрд░реНрдирд▓рд╛рдИ рдкреНрд░рдпреЛрдЧ рдЧрд░рд┐рдиреНрдЫ ред
рджрд┐рдПрдХреЛ рдЙрджрд╛рд╣рд░рдгрдорд╛ рд╣рдкреНрддрд╛рдХреЛ рджрд┐рди рдкреНрд░рдХрд╛рд░реНрдп рдкреНрд░рдпреЛрдЧ рдЧрд░реЗрд░ рддрдкрд╛рдИрдБрд▓реЗ рдорд┐рддрд┐ рдкреНрд░рд╡рд┐рд╖реНрдЯ рдЧрд░реЗрдХреЛ рдмреЗрд▓рд╛ рд╣рдкреНрддрд╛рдХреЛ рджрд┐рди рдирд┐рд░реНрдзрд╛рд░рдг рдЧрд░реНрджрдЫ ред
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