20/02/2007, 13:33
|
| | | Fecha de Ingreso: septiembre-2005
Mensajes: 74
Antigüedad: 18 años, 7 meses Puntos: 0 | |
| problema con operacion
he puesto mi codigo completo abajo.
Mi problema es que cuando "a" toma un valor mayor a 999 la operacion no
sale bien por ejemplo:
si a = 1,000
me da los sig. resultados:
subtotal=1,00
iva=0.15
total= 1.15
COMO PUEDO RESOLVER ESTE PROBLEMA ? GRACIAS
Dim X as Double
Dim a As Double
Dim b As Double
Dim c As Double
Formato = "###,##0.00"
a = val(Grid2.TextMatrix(X, 5))
b = a * 0.15
c = a + b
LabelSubtotal = Format(a, Formato)
LabelIva = Format(b, Formato)
LabelTotal = Format(c, Formato)
End Sub |