Configuracion regional

[cuzcategui]

Muchas gracias franko 1809
No utilizo ningún formato de este tipo " format(###.##)" dentro de los programas, para que sea flexible y pueda utilizarse para configuraciones en Ingles (##,###.##) y en español (##.###,##)

Lei una información sobre un Código, lo instalé (mas abajo el Código), pero en los calculos cuando ingreso un monto con punto (.) como decimal , estando la configuración del PC en español, entonces lo considera MILES.

LO QUE REALMENTE QUISIERA es que el teclado funcione como en EXCEL, Si está configurado en español el punto que esta en la posición de los numeros en el teclado funcione para los decimales como COMA(,) y si está configurado en Ingles coloque PUNTO(.), utilizando la misma tecla.

Option Explicit
Const LOCALE_SDECIMAL = &HE
Private Declare Function GetUserDefaultLangID Lib "kernel32" () As Integer
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
'
'*****************************************
Public Function Separador() As String
Dim Buffer As String, ret As Long
Buffer = String(255, " ")
ret = GetLocaleInfo(GetUserDefaultLCID, LOCALE_SDECIMAL, Buffer, 255)
Separador = Trim$(Replace$(Buffer, Chr(0), ""))
End Function
‘
'********************************
‘
Private Sub Form_Load()
MsgBox Separador
End Sub
'

Muchas gracias nuevamente