'Declaraciones del Api
Private Declare Function GetUserDefaultLCID Lib "kernel32" () As Long
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" ( _
ByVal Locale As Long, _
ByVal LCType As Long, _
ByVal lpLCData As String, _
ByVal cchData As Long) As Long
'Constante para obtener algunos de los simbolos de la configuración regional
Public Const LOCALE_SDECIMAL As Long = &HE
Public Const LOCALE_SMONDECIMALSEP As Long = &H16
' Función que Devuelve un String con el símbolo
Function Obtener_Simbolo(Valor As Long) As String
Dim Simbolo As String
Dim r1 As Long
Dim r2 As Long
Dim p As Integer
Dim Locale As Long
Locale = GetUserDefaultLCID()
r1 = GetLocaleInfo(Locale, Valor, vbNullString, 0)
'buffer
Simbolo = String$(r1, 0)
'En esta llamada devuelve el símbolo en el Buffer
r2 = GetLocaleInfo(Locale, Valor, Simbolo, r1)
'Localiza el espacio nulo de la cadena para eliminarla
p = InStr(Simbolo, Chr$(0))
If p > 0 Then
'Elimina los nulos
Obtener_Simbolo = Left$(Simbolo, p - 1)
End If
End Function
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Ago 21 /2008 @@@@@@@@@@@@@
'@@@@@@ Ahora solo debes poner esto en la parte donde quieras que identifique el punto @@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Obtener_Simbolo(LOCALE_SDECIMAL) @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@