Formato de millares y decimales

[seba123neo]

Hola,si fijate en la configuracion,igualmente hay un codigo para hacer que en cualquier maquina sea cual sea su separador decimal,pues lo que hace es reemplazarlo por el original.

Código:

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

Private Sub Form_Load()
MsgBox Separador
End Sub

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

saludos.