Tengo un problema estoy tratando de sumar los valores decimales de un listbox pero solo considera los enteros por ejemplo si en el listbox tengo 25.48, 20.36, 30.58 al momento de sumar y enviarme el resultado a aun textbox me devuelve 75 osea la suma de 25,20,30 no toma en cuenta los decimales les dejo el codigo a ver si pueden ayudarme gracias.
Dim i As IntegerDim total As Long
total = 0
For i = 0 To lstimporte.ListCount - 1
total = total + Val(lstimporte.List(i))
Next i
TextBox4.Text = total
TextBox5.Text = Val(TextBox4) * 18 / 100
TextBox6.Text = Val(TextBox4) + Val(TextBox5)[/CODE]
en el textbox4 es donde recibo la suma de los valores.
ademas quisiera saber como hacer para no tener necesidad de usar un boton para hacer el calculo sino que al ir agregando valores al listbox solo se vaya sumando y lo ingrese en el textbox4.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenas tardes,
Tengo un problema estoy tratando de sumar los valores decimales de un listbox pero solo considera los enteros por ejemplo si en el listbox tengo 25.48, 20.36, 30.58 al momento de sumar y enviarme el resultado a aun textbox me devuelve 75 osea la suma de 25,20,30 no toma en cuenta los decimales les dejo el codigo a ver si pueden ayudarme gracias.
en el textbox4 es donde recibo la suma de los valores.
ademas quisiera saber como hacer para no tener necesidad de usar un boton para hacer el calculo sino que al ir agregando valores al listbox solo se vaya sumando y lo ingrese en el textbox4.