IsDate Function
рдкрд░рд┐рдХреНрд╖рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН рдпрджрд┐ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рд╡рд╛ рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдорд┐рддрд┐ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рдорд╛ рд░реВрдкрд╛рдиреНрддрд░рдг рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
IsDate (рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐)
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рдмреБрд▓рд┐рдПрди
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐:рдХреБрдиреИ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рд╡рд╛ рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБ рддрдкрд╛рдИрдБ рдкрд░рд┐рдХреНрд╖рдг рдЧрд░реНрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред рдпрджрд┐ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд▓рд╛рдИ рдорд┐рддрд┐рдорд╛ рд░реВрдкрд╛рдиреНрддрд░рдг рдЧрд░реЗрдХреЛ рдЦрдгреНрдбрдорд╛ рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рд╕рддреНрдп рдлрд░реНрдХрд╛рдЙрдБрдЫ рдЕрдиреНрдпрдерд╛ рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗрдЭреБрдареЛ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleIsDate
Dim sDateVar As String
sDateVar = "12.12.1997"
Print IsDate(sDateVar) ' рд▓реЗ рдлрд░реНрдХрд╛рдЙрдиреЗ рд╕рддреНрдп рдореБрджреНрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реНред
sDateVar = "12121997"
Print IsDate(sDateVar) ' рд▓реЗ рдлрд░реНрдХрд╛рдЙрдиреЗ рдЭреБрдареЛ рдореБрджреНрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реНред
End Sub