TimeSerial Function
рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдШрдгреНрдЯрд╛, рдорд┐рдиреЗрдЯ, рд░ рд╕реЗрдХрдгреНрдб рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВрдХрд╛ рд▓рд╛рдЧрд┐ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рд╕рдордп рдорд╛рди рдЧрдгрдирд╛ рдЧрд░реНрдиреБрд╣реЛрд╕реН, рддрд┐рдиреАрд╣рд░реВ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдорд╛рдирдорд╛ рдкрд╛рд╕ рд╣реБрдиреНрдЫрдиреН ред рддреНрдпрд╕рдкрдЫрд┐ рддрдкрд╛рдИрдБ рд╕рдордпрд╣рд░реВ рдмреАрдЪрдХреЛ рдлрд░рдХ рдЧрдгрдирд╛ рдЧрд░реНрдирд▓рд╛рдИ рдпреЛ рдорд╛рди рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
рд╕рдордп рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ (рдШрдгреНрдЯрд╛, рдорд┐рдиреЗрдЯ, рд╕реЗрдХреЗрдгреНрдб)
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рдорд┐рддрд┐
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдШрдгреНрдЯрд╛:рдХреБрдиреИ рдЗрдиреНрдЯрд┐рдЬрд░ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓реЗ рд╕рдордпрдХреЛ рдШрдгреНрдЯрд╛ рджрд░реНрд╢рд╛рдЙрджрдЫ, рдЬреБрдирд▓рд╛рдИ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рд╕рдордп рдорд╛рди рдирд┐рд░реНрдзрд╛рд░рдг рдЧрд░реНрди рдкреНрд░рдпреЛрдЧ рдЧрд░рд┐рдиреНрдЫ ред рд╡реИрдз рдорд╛рдирд╣рд░реВ: реж-реирей
рдорд┐рдиреЗрдЯ:рдХреБрдиреИ рдЗрдиреНрдЯрд┐рдЬрд░ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдорд┐рдиреЗрдЯ рддреНрдпрд╕рд▓реЗ рд╕рдордпрдХреЛ рдорд┐рдирдЯ рдЬрдирд╛рдЙрдЫ рддреНрдпреЛ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рд╕рдордп рдорд╛рди рдирд┐рд░реНрдзрд╛рд░рдг рдЧрд░реНрдирд▓рд╛рдИ рдкреНрд░рдпреЛрдЧ рд╣реБрдиреНрдЫ ред рд╕рд╛рдордиреНрдпрдд: реж рд░ релреп рдмреАрдЪрдХрд╛ рдорд╛рдирд╣рд░реВ рдкреНрд░рдпреЛрдЧ рдЧрд░рд┐рдиреНрдЫ ред рддрдерд╛рдкрд┐, рддрдкрд╛рдИрдБрд▓реЗ рдпреЛ рджрд╛рдпрд░рд╛рдХреЛ рдмрд╛рд╣рд┐рд░рдХреЛ рдорд╛рдирд╣рд░реВ рдкрдирд┐ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ, рдЬрд╣рд╛рдБ рдорд┐рдиреЗрдЯрд╣рд░реВрдХреЛ рдирдореНрдмрд░рд▓реЗ рдШрдгреНрдЯрд╛ рдорд╛рдирдорд╛ рдкреНрд░рднрд╛рдм рдкрд╛рд░реНрджрдЫ ред
рд╕реЗрдХреЗрдгреНрдб:рдХреБрдиреИ рдЗрдиреНрдЯрд┐рдЬрд░ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдорд┐рдиреЗрдЯ рддреНрдпрд╕рд▓реЗ рд╕рдордпрдХреЛ рд╕реЗрдХреЗрдгреНрдб рдЬрдирд╛рдЙрдЫ, рддреНрдпреЛ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рд╕рдордп рдорд╛рди рдирд┐рд░реНрдзрд╛рд░рдг рдЧрд░реНрдирд▓рд╛рдИ рдкреНрд░рдпреЛрдЧ рд╣реБрдиреНрдЫ ред рд╕рд╛рдордиреНрдпрдд: рддрдкрд╛рдИрдБ реж рд░ релреп рдмреАрдЪрдХрд╛ рдорд╛рдирд╣рд░реВ рдкреНрд░рдпреЛрдЧ рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ ред рддрдерд╛рдкрд┐, рддрдкрд╛рдИрдБрд▓реЗ рдпреЛ рджрд╛рдпрд░рд╛ рдмрд╛рд╣рд┐рд░рдХреЛ рдорд╛рдирд╣рд░реВ рдкрдирд┐ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ, рдЬрд╣рд╛рдБ рд╕реЗрдХреЗрдгреНрдбрд╣рд░реВрдХреЛ рдирдореНрдмрд░рд▓реЗ рдШрдгреНрдЯрд╛ рдорд╛рдирдорд╛ рдкреНрд░рднрд╛рдм рдкрд╛рд░реНрджрдЫ ред
рдЙрджрд╛рд╣рд░рдгрд╣рд░реВ:
резреи, -рел,рекрел рд▓реЗ резрез,релрел,рекрел рд▓рд╛рдИ рдЕрдиреБрд░реВрдк рдЧрд░реНрджрдЫ
резреи, ремрез,рекрел рд▓реЗ резрей,реи,рекрел рд▓рд╛рдИ рдЕрдиреБрд░реВрдк рдЧрд░реНрджрдЫ
резреи, реиреж,-реи рд▓реЗ резреи,резреп,релрео рд▓рд╛рдИ рдЕрдиреБрд░реВрдк рдЧрд░реНрджрдЫ
резреи, реиреж,ремрей рд▓реЗ резреи,реирез,рек рд▓рд╛рдИ рдЕрдиреБрд░реВрдк рдЧрд░реНрджрдЫ
рддрдкрд╛рдИрдБ рдПрдХрд▓ рдорд╛рди рднрд┐рддреНрд░ рдХреБрдиреИ рдкрдирд┐ рд╕рдордп рд░реВрдкрд╛рдиреНрддрд░рдг рдЧрд░реНрдирд▓рд╛рдИ рд╕рдордп рдЕрдиреБрдХрд░рдг рдкреНрд░рдХрд╛рд░реНрдп рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ рддреНрдпреЛ рд╕рдордпрдХрд╛ рдлрд░рдХрд╣рд░реВ рдЧрдгрдирд╛ рдЧрд░реНрдирд▓рд╛рдИ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ ред
рд╕рдордп рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рдЪрд▓ рдкреНрд░рдХрд╛рд░ рен (рдорд┐рддрд┐) рд╕рдБрдЧ рдЪрд▓ рдкреНрд░рдХрд╛рд░ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред рдпреЛ рдорд╛рди рджреЛрдмреНрдмрд░-рдкрд░рд┐рд╢реБрджреНрдзрд┐ рдирдореНрдмрд░ реж рд░ .репрепрепрепрепрепрепрепрепреп рдмреАрдЪрдорд╛ рдЖрдиреНрддрд░рд┐рдХ рд░реВрдкрдорд╛ рднрдгреНрдбрд╛рд░рдг рд╣реБрдиреНрдЫ ред рдорд┐рддрд┐ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рд╡рд╛ рдорд┐рддрд┐ рдорд╛рди рдкреНрд░рдХрд╛рд░реНрдп рд░реЛрдХреЗрд░ рд░рд╛рдЦреНрдЫ, рдЬрд╣рд╛рдБ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рдорд┐рддрд┐ рдорд╛рдирд╣рд░реВрд▓реЗ рд╕рдореНрдмрдиреНрдзрд┐рдд рд╕реНрдерд┐рд░ рдорд┐рддрд┐рд▓рд╛рдИ рджрд┐рдирд╣рд░реВрдХреЛ рд░реВрдкрдорд╛ рдЧрдгрдирд╛ рдЧрд░реНрджрдЫрдиреН, рддрдкрд╛рдИрдБ рд╕рдордп рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рдкреНрд░рдХрд╛рд░реНрдпрджреНрд╡рд╛рд░рд╛ рдлрд░реНрдХрд╛рдПрдХрд╛ рдорд╛рдирд╣рд░реВ рд╕рдБрдЧ рдЧрдгрдирд╛ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ, рддрд░ рддрд┐рдиреАрд╣рд░реВрд▓рд╛рдИ рдореБрд▓реНрдпрд╛рдЩреНрдХрди рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрди ред
рд╕рдордп рдорд╛рди рдкреНрд░рдХрд╛рд░реНрдпрдорд╛ рддрдкрд╛рдИрдБ рд╕рдордп рд╕рдорд╛рд╡реЗрд╢ рдкрд░рд╛рдорд┐рддрд┐рдХреЛ рд░реВрдкрдорд╛ рд╕реНрдЯреНрд░рд┐рдЩ рдкрд╛рд╕ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ ред рд╕рдордп рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рдкреНрд░рдХрд╛рд░реНрдпрдХрд╛ рд▓рд╛рдЧрд┐, рдХрд╣рд┐рд▓реЗ рдХрд╛рдБрд╣рд┐, рддрдкрд╛рдИрдБрд▓реЗ рдЫреБрдЯреНрдЯреИ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд╣рд░реВрдХреЛ рд░реВрдкрдорд╛ рдЕрд▓рдЧ рдЕрд▓рдЧ рдкрд░рд╛рдорд┐рддрд┐ (рдШрдгреНрдЯрд╛,рдорд┐рдиреЗрдЯ,рд╕реЗрдХреЗрдиреНрдб)рд╣рд░реВ рдкрд╛рд╕ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ ред
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleTimeSerial
Dim dDate As Double, sDate As String
dDate = TimeSerial(8,30,15)
sDate = TimeSerial(8,30,15)
рд╕рдиреНрджреЗрд╢ рдмрд╛рдХрд╕ dDate,64,"рд╕рдордп рдирдореНрдмрд░ рдЬрд╕реНрддреИ рдЧрд░рд┐"
рд╕рдиреНрджреЗрд╢ рдмрд╛рдХрд╕ sDate,64,"рдврд╛рдБрдЪрд╛ рдЧрд░реНрди рд▓рд╛рдЧреЗрдХреЛ рд╕рдордп"
End Sub