Sumando decimales
Publicado por Miguel (243 intervenciones) el 04/09/2001 09:37:15
Hola de nuevo.
Estoy intentando sumar una columna de un FlexGrid que contiene decimales (2) , el problema es que el resultado que me da es casi correcto , lo que no hace es ponerme los decimales que toca y me lo redondea.El código que tengo es este :
Dim v1 As Long, v2 As Long
For i = 1 To Grid1.Rows - 1
v0 = Format(Grid1.TextMatrix(i, 12), "#,##0.00")
v1 = Format(v1 + v0, "#,##0.00")
Next i
MsgBox Format(v1, "#,##0.00")
Cómo lopuedo hacer para que me sume las cantidades "exactas".
Gracias
Estoy intentando sumar una columna de un FlexGrid que contiene decimales (2) , el problema es que el resultado que me da es casi correcto , lo que no hace es ponerme los decimales que toca y me lo redondea.El código que tengo es este :
Dim v1 As Long, v2 As Long
For i = 1 To Grid1.Rows - 1
v0 = Format(Grid1.TextMatrix(i, 12), "#,##0.00")
v1 = Format(v1 + v0, "#,##0.00")
Next i
MsgBox Format(v1, "#,##0.00")
Cómo lopuedo hacer para que me sume las cantidades "exactas".
Gracias
Valora esta pregunta


0