TimeValue Function
рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдШрдиреНрдЯрд╛ рдорд┐рдиреЗрдЯ рд╕реЗрдХреЗрдгреНрдб - рд╕реНрдЯреНрд░рд┐рдЩрд╣рд░реВрдорд╛ - рдкрд╛рд╕ рдЧрд░реЗрдХрд╛ рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВрдмрд╛рдЯ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рд╕рдордп рдорд╛рди рдЧрдгрдирд╛ рдЧрд░реНрджрдЫ рдЬрд╕рд▓реЗ рдПрдХрд▓ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдорд╛рдирдорд╛ рд╕рдордпрдХреЛ рдкреНрд░рддрд┐рдиреАрдзрд┐рддреНрд╡ рдЧрд░реНрджрдЫ ред рдпреЛ рдорд╛рди рд╕рдордпрд╣рд░реВ рдмреАрдЪрдХреЛ рдлрд░рдХ рдЧрдгрдирд╛ рдЧрд░реНрдирд▓рд╛рдИ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рд╕рдХрд┐рдиреНрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
рд╕рдордп рдорд╛рди (рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ рдкрд╛рда)
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рдорд┐рддрд┐
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдкрд╛рда:рдХреБрдиреИ рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рддреНрдпреЛ рд╕рдордпрд▓рд╛рдИ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░реНрджрдЫ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБрд▓реЗ "HH:MM:SS" рдврд╛рдБрдЪрд╛рдорд╛ рдЧрдгрдирд╛ рдЧрд░реНрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред
рдПрдХрд▓ рдорд╛рди рднрд┐рддреНрд░рдХрд╛ рдХреБрдиреИ рдкрдирд┐ рд╕рдордп рд░реВрдкрд╛рдиреНрддрд░рдг рдЧрд░реНрдирд▓рд╛рдИ рд╕рдордп рдорд╛рди рдкреНрд░рдХрд╛рд░реНрдп рдкреНрд░рдпреЛрдЧ рдЧрд░реНрджрдЫ рддреНрдпрд╕рдХрд╛рдг рддрдкрд╛рдИрдБ рд╕рдордпрдХрд╛ рдлрд░рдХрд╣рд░реВ рдЧрдгрдирд╛ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ ред
рдпреЛ рд╕рдордп рдорд╛рди рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рдЪрд▓ рдкреНрд░рдХрд╛рд░ рен(рдорд┐рддрд┐)рд╕рдБрдЧ рдкреНрд░рдХрд╛рд░ рдЪрд▓ рдлрд░реНрдХрд╛рдЙрдБрдЫ, рд░ рдЖрдиреНрддрд░рд┐рдХрд░реВрдкрдорд╛ реж рд░ .репрепрепрепрепрепрепрепрепрепрдХреЛ рдмреАрдЪрдХреЛ рджреЛрдмреНрдмрд░-рдкрд░рд┐рд╢реБрджреНрдзрд┐ рдирдореНрдмрд░рд▓рд╛рдИ рдпреЛ рдорд╛рдирдорд╛ рднрдгреНрдбрд╛рд░рдг рдЧрд░реНрджрдЫ ред
рдорд┐рддрд┐ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рд╡рд╛ рдорд┐рддрд┐ рдорд╛рди рдкреНрд░рдХрд╛рд░реНрдпрд▓рд╛рдИ рдкреНрд░рддрд┐рд░реЛрдз рдЧрд░реНрджрд╛ рдЬрд╣рд╛рдБ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рдорд╛рдирд╣рд░реВрдХреЛ рдкрд░рд┐рдгрд╛рдо рд╕реНрдерд┐рд░ рдорд┐рддрд┐рд▓рд╛рдИ рд╕рдореНрдмрдиреНрдзрд┐рдд рджрд┐рдирд╣рд░реВрдорд╛ рддрдкрд╛рдИрдБ рдорд╛рдирд╣рд░реВ рд╕рдБрдЧ рдЧрдгрдирд╛ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ рддрд┐рдиреАрд╣рд░реВ рд╕рдордп рдорд╛рди рдкреНрд░рдХрд╛рд░реНрдпрджреНрд╡рд╛рд░рд╛ рдлрд░реНрдХрд╛рдЗрдПрдХрд╛ рд╣реБрдиреНрдЫрдиреН, рддрд░ рддрд┐рдиреАрд╣рд░реВрд▓рд╛рдИ рдореБрд▓реНрдпрд╛рдЩреНрдХрди рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрди ред
рд╕рдордп рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рдкреНрд░рдХрд╛рд░реНрдпрдорд╛, рддрдкрд╛рдИрдБ рд╡рд┐рд╢реЗрд╖ рд╕реНрд╡рднрд╛рдмрдХрд╛ рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ (рдШрдгреНрдЯрд╛, рдорд┐рдирдЯ, рд╕реЗрдХреЗрдгреНрдб) рдЫреБрдЯреНрдЯреИ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд╣рд░реВрдорд╛ рдкрд╛рд╕ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ ред рд╕рдордп рдорд╛рди рдкреНрд░рдХрд╛рд░реНрдпрдХрд╛ рд▓рд╛рдЧрд┐, рддрдерд╛рдкрд┐, рддрдкрд╛рдИрдБ рд╕рдордп рд╕рдорд╛рд╡реЗрд╢ рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВрдорд╛ рд╕реНрдЯреНрд░рд┐рдЩ рдкрд╛рд╕ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ ред
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleTimerValue
Dim daDT As Date
Dim a1, b1, c1, a2, b2, c2 As String
a1 = "рд╕реБрд░реБ рд╕рдордп"
b1 = "рдЕрдиреНрддреНрдп рд╕рдордп"
c1 = "рдЬрдореНрдорд╛ рд╕рдордп"
a2 = "8:34"
b2 = "18:12"
daDT = TimeValue(b2) - TimeValue(a2)
c2 = a1 & ": " & a2 & chr(13)
c2 = c2 & b1 & ": " & b2 & chr(13)
c2 = c2 & c1 & ": " & trim(Str(Hour(daDT))) & ":" & trim(Str(Minute(daDT))) & ":" & trim(Str(Second(daDT)))
MsgBox c2
End Sub