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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.8 из 5
Похожие ответы