MyTetra Share
Делитесь знаниями!
Проверка на числа
Время создания: 31.07.2019 22:37
Текстовые метки: Проверка на числа, IsNumeric
Раздел: !Закладки - VBA
Запись: adgaver/mytetra_base_New/master/base/1518901244e41mgs8m79/text.html на raw.githubusercontent.com

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

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

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

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.55
Яндекс индекс цитирования