Текст в число

[Чудик]

Есть FlexGrid, в который заносятся числа. Они соответсвенно вводятся как текстовые значения. В дальнейшем с ними необходимо выполнить арифметические операции. Для этого требуется предварительно конвертировать введеные текстовые значения в числовые, но при этом надо учесть, что значения как числа являются десятичными дробями. Как добиться требуемой конвертации?

[Ariman]

А Cdbl не пойдет?

[Ramzes]

dim str as string
dim inte as integer

sub x()
inte = str
end sub

[Чудик]

CDbl - не переводит текстовые значения - выдает ошибку.
Тот вариант, который написал Ramzes тоже не идет из-за несоответствия типов.

[Andrey Fedorov]

Ну сделай хотя бы так:

Код: Выделить всё

Debug.Print CVDbl(" 1.234 "), CVDbl(" 45,678 "), CVDbl(" 1,,23")

Public Function CVDbl(s As String) As Variant
    Dim ss As String, sr As String
   
    CVDbl = Null
    ss = Format$(0, ".")
    sr = IIf(ss = ",", ".", ",")
    s = Replace(s, sr, ss)
    On Error Resume Next
    If IsNumeric(s) Then CVDbl = CDbl(s)
End Function

[Чудик]

Классно, мне понравилось. Спасибо!

[tyomitch]

Классно, мне понравилось. Спасибо!

А просто Val не подходил, интересно?

[Чудик]

Нет, Val округляет, чего не надо.

[tyomitch]

Нет, Val округляет, чего не надо.

"Не верю!" (с)

Код: Выделить всё

?Val("1.2345")
1,2345


[Чудик]

Да, tyomitch, ты прав. У меня тип поля в БД стоял не тот. Но, все равно Val округлает, если вместо точки набрать запитую (причем округляет в низжую сторону).
Так что обрабатывать все равно приходиться.

[VAngel]

А если перед val() заменять запятую на точку?
Через replace(string, ",",".",1,1)

[Ennor]

Уж сколько раз твердили миру, что Val() не понимает национальные разделители дробной части... Ну вы бы хоть поиском попробовали!

[tyomitch]

Уж сколько раз твердили миру, что Val() не понимает национальные разделители дробной части...

Имхо это не баг, а фича

[Ennor]

Имхо это не баг, а фича

Да, логично - слишком много работы пришлось бы выполнять в одной функции, по большей части ненужной. Получился бы еще один монстр типа Format(). Да и к VB SP6 могли бы поправить, если бы это был действительно баг .