Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Sumar Textbox en formulario

15/02/2007 - 20:42 por Brel | Informe spam
Ayuda Hacer una pregunta
Hola grupo, hacía tiempo que no pasaba por aquí.
Mi problema es que el formato de ambos textbox es texto y necesito sumar sus
valores con formato 0.000 (se teclean con el teclado numérico y en pantalla
aparece:0,000). Al tener decimales no me vale 'Val', al ser texto CSng da
error 13(No coinciden los tipos)... será una tontería pero toy atascao...
Mil gracias por adelantado.
Brel
email Siga el debateRespuesta 7 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Ivan
16/02/2007 - 01:20 | Informe spam
hola Brel

no se si iran por aqui los tiros, pero he hecho esta prueba y me funciona
bien. Dependiendo de tu configuracion regional quizas debas, en vez de
cambiar el punto (.) por la coma (,) , hacerlo al reves( coma por punto).

Private Sub CommandButton1_Click()
Label1.Caption = _
Format(CSng(Replace(TextBox1, ".", ",")) + _
CSng(Replace(TextBox2, ".", ",")), "#.###")
End Sub

En cuanto CSng, y al menos en mi caso, no tiene problemas en cambiar de un
string (textbox) a un single.

Lo que si es cierto que omitiendo el 'Replace' lo que me sumaba era los
numeros como si no tuvieran coma (ni punto), o sea pej. 10.00 + 10.00 00
en lugar de 20,00

en cuanto al formato, y para mi configuracion regional (coma -> decimales y
punto -> miles ) en la forma de el codigo me devuelve la cantidad sumada con
3 decimales y con coma separadora, en el label1 del ejemplo.

bueno, no se si te ayuda o te lia mas, pero espero que sea lo 1º

un saludo y hasta pronto
Ivan

Preguntas similares

 

Busqueda sugerida :