IsNumeric Function

рдпрджрд┐ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдирдореНрдмрд░рдорд╛ рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдкрд░рд┐рдХреНрд╖рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН ред рдпрджрд┐ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдирдореНрдмрд░рдорд╛ рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рд╕рддреНрдп рдлрд░реНрдХрд╛рдЙрдБрдЫ рдЕрдиреНрдпрдерд╛ рдЭреБрдареЛ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред

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


IsNumeric (Var)

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

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

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

Var: рдХреБрдиреИ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБ рдкрд░рд┐рдХреНрд╖рдг рдЧрд░реНрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред

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

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

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


Sub ExampleIsNumeric
Dim vVar As Variant
    vVar = "ABC"
    Print IsNumeric(vVar) ' рд▓реЗ рдЭреБрдареЛ рдлрд░реНрдХрд╛рдЙрдБрдЫ
    vVar = "123"
    Print IsNumeric(vVar) ' рд▓реЗ рд╕рддреНрдп рдлрд░реНрдХрд╛рдЙрдБрдЫ
End Sub

Please support us!