IsNumeric Function
рдпрджрд┐ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдирдореНрдмрд░рдорд╛ рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдкрд░рд┐рдХреНрд╖рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН ред рдпрджрд┐ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдирдореНрдмрд░рдорд╛ рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рд╕рддреНрдп рдлрд░реНрдХрд╛рдЙрдБрдЫ рдЕрдиреНрдпрдерд╛ рдЭреБрдареЛ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
IsNumeric (Var)
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рдмреБрд▓рд┐рдПрди
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
Var: рдХреБрдиреИ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБ рдкрд░рд┐рдХреНрд╖рдг рдЧрд░реНрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleIsNumeric
Dim vVar As Variant
vVar = "ABC"
Print IsNumeric(vVar) ' рд▓реЗ рдЭреБрдареЛ рдлрд░реНрдХрд╛рдЙрдБрдЫ
vVar = "123"
Print IsNumeric(vVar) ' рд▓реЗ рд╕рддреНрдп рдлрд░реНрдХрд╛рдЙрдБрдЫ
End Sub