Day Function
рдорд╛рди рдлрд░реНрдХрдиреНрдЫ рдЬрд╕рд▓реЗ рдорд┐рддрд┐ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рд╡рд╛ рдорд┐рддрд┐ рдорд╛рдирджреНрд╡рд╛рд░рд╛ рдЙрддреНрдкрдиреНрди рднрдПрдХрд╛ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рдорд┐рддрд┐ рдирдореНрдмрд░рд╣рд░реВрдорд╛ рдЖрдзрд╛рд░рд┐рдд рд░рд╣реЗрд░ рдорд╣рд┐рдирд╛рдХреЛ рджрд┐рди рдкреНрд░рд╕реНрддреБрдд рдЧрд░реНрджрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
рджрд┐рди (рдирдореНрдмрд░)
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рдЗрдиреНрдЯрд┐рдЬрд░
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдирдореНрдмрд░:рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓реЗ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рдорд┐рддрд┐ рдирдореНрдмрд░ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░реНрджрдЫ рдЬрд╕рдмрд╛рдЯ рддрдкрд╛рдИрдБ рдорд╣рд┐рдирд╛рдХреЛ рджрд┐рди рдЧрдгрдирд╛ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ ред
рдорд┐рддрд┐ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рд╡рд╛ рдорд┐рддрд┐ рдорд╛рди рдкреНрд░рдХрд╛рд░реНрдпрджреНрд╡рд╛рд░рд╛ рдЙрддреНрдкрд╛рджрд┐рдд рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рдорд┐рддрд┐ рдирдореНрдмрд░рдмрд╛рдЯ рдорд╣рд┐рдирд╛рдХреЛ рджрд┐рди рдлрд░реНрдХрд╛рдЙрджрд╛, рдпреЛ рдкреНрд░рдХрд╛рд░реНрдп рдЖрдзрд╛рд░рднреВрдд рддрдмрд░рд▓реЗ рдорд┐рддрд┐ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рдкреНрд░рдХрд╛рд░реНрдпрдХреЛ рд╡рд┐рдкрд░рд┐рдд рд╣реЛ ред рдЙрджрд╛рд╣рд░рдгрдХрд╛ рд▓рд╛рдЧрд┐, рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐
Print Day (DateSerial(1994, 12, 20))
рдорд╛рди реиреж.рдлрд░реНрдХрд╛рдЙрдБрдЫ
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleDay
"рджрд┐рди " & рджрд┐рди(рдорд┐рддрд┐ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛(резрепрепрек, резреи, реиреж)) & " рдорд╣рд┐рдирд╛рдХреЛ"рдореБрджреНрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН
End Sub