Hour Function
рд╕рдордп рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рд╡рд╛ рд╕рдордп рдорд╛рди рдкреНрд░рдХрд╛рд░реНрдпрджреНрд╡рд╛рд░рд╛ рдЙрддреНрдкрдиреНрди рдЧрд░рд┐рдПрдХреЛ рд╕рдордп рдорд╛рдирдмрд╛рдЯ рдШрдгреНрдЯрд╛ рдлрд░реНрдХрд╛рдЙрдБрджрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
рдШрдгреНрдЯрд╛ (рдирдореНрдмрд░)
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рдЗрдиреНрдЯрд┐рдЬрд░
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдирдореНрдмрд░: рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрдд рдЬрд╕рд▓реЗ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рд╕рдордп рдорд╛рди рд╕рдорд╛рд╡реЗрд╢ рдЧрд░реНрджрдЫ, рддреНрдпреЛ рдШрдгреНрдЯрд╛ рдорд╛рди рдлрд░реНрдХрд╛рдЙрди рд▓рд╛рдИ рдкреНрд░рдпреЛрдЧ рд╣реБрдиреНрдЫ ред
рдпреЛ рдкреНрд░рдХрд╛рд░реНрдп рд╕рдордп рд╢реНрд░реГрдЩреНрдЦрд▓рд╛рдкреНрд░рдХрд╛рд░реНрдпрдХреЛ рд╡рд┐рдкрд░рд┐рдд рд╣реЛ ред рдпрд╕рд▓реЗ рд╕рдордп рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рд╡рд╛ рд╕рдордп рдорд╛рди рдкреНрд░рдХрд╛рд░реНрдп рджреНрд╡рд╛рд░рд╛ рдЙрддреНрдкрдиреНрди рдЧрд░рд┐рдПрдХреЛ рд╕рдордп рдорд╛рдирдмрд╛рдЯ рдШрдгреНрдЯрд╛ рдкреНрд░рддрд┐рдиреАрдзрд┐рддреНрд╡ рдЧрд░реНрдиреЗ рдПрдЙрдЯрд╛ рдЗрдиреНрдЯрд┐рдЬрд░ рдорд╛рди рдлрд░реНрдХрд╛рдЙрдБрджрдЫ ред рдЙрджрд╛рд╣рд░рдгрдХрд╛ рд▓рд╛рдЧрд┐, рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐
рдШрдгреНрдЯрд╛ (рд╕рдордп рд╢реНрд░реГрдЩреНрдЦрд▓рд╛(резреи:рейреж:рекрез)) рдореБрджреНрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН
рдорд╛рди резреи рдлрд░реНрдХрд╛рдЙрдБрджрдЫ ред
рдЙрджрд╛рд╣рд░рдг:
рд╕рдм рдЙрджрд╛рд╣рд░рдг рдШрдгреНрдЯрд╛
"рд╣рд╛рд▓рдХреЛ рдШрдгреНрдЯрд╛" & рдШрдгреНрдЯрд╛( рдЕрд╣рд┐рд▓реЗ ) рд╣реЛ рдореБрджреНрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН
End Sub