Цифра в Textbox
Надо сложить или перемножить несколько тексбоксов, но он ругается на русскую или английскую запятую. Но ведь excel все равно. Как сделать, чтобы и тексбоксу было все равно.
Че-то не замечал, что Excel все равно что используется "," или ".". Пока региональные настройки не поменяешь под него Excel тоже плюется.
Если тебе надо перемножать данные из TextBox, то сначала их надо явно преобразовать к нужному типу, например Double. Т.к. функции преобразования тоже неровно дышат на счет точек и запятых, надо использовать какую-нибудь свою, универсальную:
Public Function CDblUniver(s As String) As Double
CDblUniver = 0
If Len(s) > 0 Then
If InStr(1, s, ",") > 0 Then
CDblUniver = CDbl(s)
Else
CDblUniver = Val(s)
End If
End If
End Function
Если тебе надо перемножать данные из TextBox, то сначала их надо явно преобразовать к нужному типу, например Double. Т.к. функции преобразования тоже неровно дышат на счет точек и запятых, надо использовать какую-нибудь свою, универсальную:
Public Function CDblUniver(s As String) As Double
CDblUniver = 0
If Len(s) > 0 Then
If InStr(1, s, ",") > 0 Then
CDblUniver = CDbl(s)
Else
CDblUniver = Val(s)
End If
End If
End Function