VB6 IsNumeric может быть неправильным?

VB6 не обеспечивает хорошие методы гарантировать, что CInt не перестанет работать. Я нашел, что самый простой путь состоит в том, чтобы просто использовать обработку ошибок.

function TryParse(byval text as string, byref value as integer) as boolean
  on error resume next
  value = CInt(text)
  TryParse = (err.number = 0)
endfunction

Конечно, Ваши предпочтения обработки ошибок могут варьироваться.

Да, "3.41" было бы числовым, но не целое число.

Ваш лучший выбор состоит в том, чтобы начать регистрировать ошибки с фактическими значениями, он работает с тем, таким образом, можно выяснить то, что продолжается.

Да. Попробуйте это:

If IsNumeric("65537") Then
    Dim i As Integer
    i = CInt("65537") 'throws an error on this line!
End If

Это переполнение, но я думаю, что оно иллюстрирует ненадежность IsNumeric () в целом (специально для ints - для, удваивается, это намного более надежно).

IsNumeric возвратит true, если он может преобразовать строку в число. Даже если существуют нечисловые символы в строке. Я всегда цикл, хотя строка один символ за один раз и тест каждый символ. Если один символ перестал работать затем, я могу возвратить ошибку.

Следующий код работает без ошибки Несоответствия типов в Visual BASIC 6

Dim I As Integer
I = CInt("3.41")

То же для этого варианта

Dim I As Integer
Dim TempS As String
TempS = "3.41"
I = CInt(TempS)

Регистрация рассматриваемого кода помогла бы ответить на Ваш вопрос. В основном существует несколько функций в VB6, которые используются для преобразования строк в число.

CInt и Международное преобразование в число, но дескриптор, округляющийся отличающийся. Прямое присвоение работает и эквивалентный использованию CInt. Howver я рекомендую продолжить использовать CInt, чтобы ясно дать понять операцию Вам и Вашим поддерживающим разработчикам в будущем.

Работы CInt над числом с запятыми как "3 041,41" Однако VB6 имеет проблему при обработке настроек региона поэтому при использовании нотации кроме стандартного американского варианта английского языка, Вы получите странные результаты и ошибки.

Согласно документации VB6, "IsNumeric возвращает True, если тип данных Выражения является булевской переменной, Байтом, Десятичным числом, дважды, Целым числом, Долго, SByte, Коротким, Единственным, UInteger, ULong, или UShort или Объект, который содержит один из тех числовых типов. Это также возвращает True, если Выражением является Символ или Строка, которая может быть успешно преобразована в число".

Многие из тех не могут быть преобразованы в Целое число. Например, "1.5" является числовым, но это не целое число. Так, можно преобразовать его в число, но не обязательно целое число.

Две опции...

Изменение

If IsNumeric(strMaxAlternatives) And strMaxAlternatives <> "" Then
    iGlobalMaxAlternatives = CInt(strMaxAlternatives)
End If

Кому:

If IsNumeric(strMaxAlternatives) And strMaxAlternatives <> "" Then
    iGlobalMaxAlternatives = CDbl(strMaxAlternatives) ' Cast to double instead'
End If

Или

If IsNumeric(strMaxAlternatives) And strMaxAlternatives <> "" Then
    If CDbl(strMaxAlternatives) Mod 1 = 0 Then ' Make sure there\'s no decimal points'
        iGlobalMaxAlternatives = CInt(strMaxAlternatives)
    End If
End If

Только что нашел этот самородок. Если вы запустите следующее, то скрипт #1 вернет TRUE, но скрипт #2 & #3 выдаст ошибку:

SELECT ISNUMERIC('98,0') AS isNum   -- Fails

SELECT CONVERT(INT, '98,0')   -- Fails

SELECT CONVERT(NUMERIC(11,4), '98,0')     -- Fails