Определить, является ли заданная строка записью целого числа, записью вещественного числа, или строку нельзя преобразовать в число - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д