MyTetra Share
Делитесь знаниями!
Проверка на числа
16.03.2019
23:43
Текстовые метки: Проверка на числа,IsNumeric
Раздел: !Закладки - VBA - Разобрать

'=======================================================================

' ##### Проверка на числа

'-----------------------------------------------------------------------

Function FnCheckTypeNum(ByVal vVal As Variant) As Boolean

Dim i As Integer

Dim vSim As Variant

For i = 1 To Len(vVal)

vSim = Mid(vVal, i, 1)

If IsNumeric(vSim) Then

FnCheckTypeNum = True

Else

Exit Function

End If

Next i

End Function

'=======================================================================

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования