IsDate Function

рдкрд░рд┐рдХреНрд╖рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН рдпрджрд┐ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рд╡рд╛ рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдорд┐рддрд┐ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рдорд╛ рд░реВрдкрд╛рдиреНрддрд░рдг рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


IsDate (рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐)

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

рдмреБрд▓рд┐рдПрди

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐:рдХреБрдиреИ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рд╡рд╛ рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБ рддрдкрд╛рдИрдБ рдкрд░рд┐рдХреНрд╖рдг рдЧрд░реНрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред рдпрджрд┐ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд▓рд╛рдИ рдорд┐рддрд┐рдорд╛ рд░реВрдкрд╛рдиреНрддрд░рдг рдЧрд░реЗрдХреЛ рдЦрдгреНрдбрдорд╛ рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рд╕рддреНрдп рдлрд░реНрдХрд╛рдЙрдБрдЫ рдЕрдиреНрдпрдерд╛ рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗрдЭреБрдареЛ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред

рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

рдЙрджрд╛рд╣рд░рдг:


Sub ExampleIsDate
Dim sDateVar As String
    sDateVar = "12.12.1997"
    Print IsDate(sDateVar) ' рд▓реЗ рдлрд░реНрдХрд╛рдЙрдиреЗ рд╕рддреНрдп рдореБрджреНрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реНред
    sDateVar = "12121997"
    Print IsDate(sDateVar) ' рд▓реЗ рдлрд░реНрдХрд╛рдЙрдиреЗ рдЭреБрдареЛ рдореБрджреНрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реНред
End Sub

Please support us!