Hola!. Tengo una aplicación que realiza cálculos con números decimales. Mientras el símbolo decimal es el punto, funciona bien, pero cuando es la coma, da cualquier cosa.
Me gustaría que mi programa, en el momento de iniciarce, pueda averiguar cual es el simbolo decimal y eventualmente cambiarlo.
saludos.

hola,hace que el textbox solo pueda admitir numeros y el punto y listo.

saludos.

Y no has pensado que si ponen dos comas y dos puntos... Qué pasaría ?
jojoj
pero se puede hacer esto

Si tratan de escribir un punto ó una coma (el que sea decimal) y se encuentra una coma/punto en el TextBox, no se escribirá, el divisor de Miles se usará en cualquier momento.

Hola seba123neo, los datos provienen: algunos de los TextBox y otros de una base de datos. La base de datos sabe cual es el simbolo decimal del sistema. Lo ideal sería que mi aplicación pudiera averiguarlo, así forzar a todos los TextBox a usar el símbolo decimal correcto en toda circunstancia.
¿No habrá una API para esto?.
saludos.

Hola gami,si se ingresan 2 comas o puntos es todavia mas facil,solo hace falta una funcion que detecte cuantas comas hay y si hay mas de 2 que no la deje escribir y listo igual para el punto,pense que ya se sabia por eso no lo puse.

telu ¿es necesario que tengas que usar el punto de los miles y la coma de los decimales? hay funciones en visual basic que te ahorran ese trabajo y te permiten escibir en un formato en el que no hacen falta esos caracteres o por lo menos ahorrarte el punto de los miles,por ejemplo:

cien mil 100.000 que se escriba 100000 sin los puntos y listo.

el unico caracter que se usaria es la coma de los decimales.y tambien podes hacer lo que casi en todas las aplicaciones como calculadoras hay,que al ingresar el punto se transforme inmediatamente en una coma.

en resumen solo usarias la coma ,y si se ingresa un punto que se transforme en una coma.

y si se puede saber el separador decimal:

Código:

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 SignoDecimal() As String
Dim Buffer As String, ret As Long
Buffer = String(255, " ")
ret = GetLocaleInfo(GetUserDefaultLCID, LOCALE_SDECIMAL, Buffer, 255)
SignoDecimal = Trim$(Replace$(Buffer, Chr(0), ""))
End Function

Private Sub Form_Load()
MsgBox "El signo decimal configurado en tu sitema es el " & SignoDecimal, vbInformation + vbOKOnly, "Signo Decimal"
End Sub

saludos.

Edited by: seba123neo

Hola seba123neo. El problema es que al leer de la base de datos, los mismos valores aparecen con punto o con coma segun sea el simbolo decimal del sistema (la base de datos reconoce el símbolo decimal del sistema y se adapta a él). Además al tratar de guardar por ej: 100.5 se produce un error si el simbolo decimal es la coma.
saludos

Hola telu, mira este ejemplo que puse hace ya tiempo, en la Guía de recursos, a ver si te sirve.

http://www.canalvisualbasic.net/foru....asp?TID=24668

Saludos

Hola, ¡Problema resuelto!. La solución que ofrece Anibal en el link de arriba, funciona (lo probé con Windows 98 cambiando el simbolo decimal y separacion de miles. Ojo hay que cambiar en las pestañas Número y Moneda, si cambiás solo en una, el simbolo decimal no cambia).
La clave para lo que buscaba está en:
..............
' comprueba el formato numérico
del sistema

sDecimal = Format(0.1, "#.#")

sDecimal = IIf(InStr(sDecimal, ","),
",", ".")
.........Muchas gracias.
saludos.