Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Кабан
применяю вот такую функцию перед сохранением в базу.
и мне, получается, все равно - как настроены региональные установки у пользователя
пока нареканий не поступало.

'-- убирает лишние символы для сохранения числа в базе Oracle Public Function Num4Ora(param)     Dim rg As New RegExp     On Error GoTo err12345     Num4Ora = Null     If nz(param, "") = "" Then Exit Function     rg.Global = True     rg.Pattern = "[^(0-9)|\-|\,|\.]": param = rg.Replace(param, "")     rg.Pattern = "\,": param = rg.Replace(param, ".")     Num4Ora = param     Exit Function err12345:     MsgBox Error, vbExclamation, "Num4Ora #" & Err.Number     Exit Function End Function

в References нужно подключить Microsoft VBScript Regular Expressions (у меня 5.5)