Error en multiplicación

[guillebomtrasmiti]

Hola amigos...sigo preguntando cosas que no entiendo...TENGO UN TEXTBOX...vale=?=)...bien en el meto una cifra...genial...y en otro textbox pongo el total de la cifra del otro textbox *1.08...pues bien...el tema es que en un textbox pone: 648,51
y al multiplicarlo por 1.08......me pone en el otro textbox: 699,84
aaaaaaaahhhhh no entiendo nada..en cambio en otras cifras me da bienn...
son solo en algunas que no funcionaaaaaa




lo tengo hecho así
total18 = CDec(CStr(Val(TextBImp18.Text) * 1.18))
'TextTotal18.Text = Format(Format(total18, "##,##0.00").Replace(".", ","))
'total08 = CDec(CStr(Val(TextBImp8.Text) * 1.08))
'TextTotal8.Text = Format(Format(total08, "##,##0.00").Replace(".", ","))
'total04 = CDec(CStr(Val(TextBImp4.Text) * 1.04))
'TextTotal4.Text = Format(Format(total04, "##,##0.00").Replace(".", ","))
'total02 = CDec(CStr(Val(TextBImp2.Text) * 1.02))
'TextTotal2.Text = Format(Format(total02, "##,##0.00").Replace(".", ","))
'aquí resto el dto sobre las bases imponibles y luego le suma el iva al textbox

[alexg88]

Primero, no se te entiende nada.

Segundo, si multiplicas 648,51 * 1,08 = 699,84. No entiendo el problema.

Si quieres ayuda, explícate mejor.

Saludos.

[guillebomtrasmiti]

Primero, no se te entiende nada.

Segundo, si multiplicas 648,51 * 1,08 = 699,84. No entiendo el problema.

Si quieres ayuda, explícate mejor.

Saludos.

a ver.....ehhh, me explico mejor; si multiplicas 648,51 * 1.08 el resultado no es 699,84, si no que es; 700,39....

lo que yo hago es esto;

Código:

total08 = CDec(CStr(Val(TextBImp8.Text) * 1.08))
TextTotal8.Text = Format(Format(total08, "##,##0.00").Replace(".", ","))

cojo el valor del textbox y lo multiplico por 1,08....y después lo pongo ese valor en otro textbox...texttotal8.text=......en el formato que deseo...

mejor ahora?¿?, gracias por el interés a todos

[alexg88]

El problema es que usas Val y eso convierte el número que introduces en el textbox en un entero.

Te vale con convertir el texto en double y hacer la multiplicación.

Tampoco creo que hagan falta dos Format.

Código vb:

total08 = CDbl(TextBImp8.Text) * 1.08)
TextTotal8.Text = Format(total08, "##,##0.00").Replace(".", ",")
 

[guillebomtrasmiti]

vale ... muchas gracias alexg88, me ha sido de mucha ayuda tu aportación...un abrazo