Formato de millares y decimales

[SirMuna]

Hola !

Me acabo de inscribir en este foro buscando ayuda para un problemita que tengo.
Resulta que el formato que tengo en windows (vista por cierto) para los marcadores de miles y decimales es: punto (.)para miles y comas (,) para decimales. Tengo entendido que vb 2005 utiliza (.) para decimales. Luego al ejecutar cualquier operación, recibo en el textbox asociado un valor con comas; el cual necesito recalcular pero no reconoce dicho valor, ya que esta con (,).

Quisiera saber como poder realizar una función o bien cambiar el formato vb para que los resultados me los envíe en las misma condiciones en que fueron ingresados. A su vez, enviar un mensaje de error para cuando se ingresen comas en vez de puntos.

Si alguien me puede ayudar, se lo agradecería.

Adios..........

[SinNombre]

La Verdad No He Tenido Oportunidad De Hecharle Un Vistazo Al Win Vista, Pero Ya Checaste En La Configuracion Regional De Tu Pc??
Esta En Panel De Control (al Menos En Xp)
Suerte..

[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.