Определить, является ли заданная строка записью целого числа, записью вещественного числа, или строку нельзя преобразовать в число - VB
Формулировка задачи:
Определить, является ли заданная строка записью целого числа, записью вещественного числа, или строку нельзя преобразовать в число.
Решение задачи: «Определить, является ли заданная строка записью целого числа, записью вещественного числа, или строку нельзя преобразовать в число»
textual
Листинг программы
Function NumberType(ByVal value As String) As Integer
Dim retval As Integer
Dim DecimalSeparator As String
'Определение, что является десятичным разделителем в системе
DecimalSeparator = IIF(IsNumeric("1.23"), ".", ",")
'Проверяем, является ли значение числом
If IsNumeric(value) Then
'Если является, то проверяем наличие десятичного разделителя
retval = IIF(InStr(value, DecimalSeparator) <> 0, 0, 1)
Else retval = -1
NumberType = retval
End Function