none
Numero de mas en el resultado RRS feed

  • Pregunta

  • Hola, mi problema es que al ejecutar el msgbox en la parte de cambio me da un numero de mas al final el cual es un 4 o un 6 cuando hago cambios para intentar quitarlo, aquí dejo mi código por si alguien me puede ayudar

    Dim suma, resta As Integer
            suma = (Val(lblcarne.Text) + Val(lblcomida.Text) + Val(lblpollo.Text) + Val(lblmixto.Text) + Val(lblpollo4.Text) + Val(lblcarne3.Text) + Val(lblrefresco.Text) + Val(lblrefresco3.Text) + Val(lblagua.Text))
            lbltotal.Text = suma
            resta = Val(txtcambio.Text)
            lblcambio.Text = resta - Val(lbltotal.Text)
            MsgBox("El total de venta es : " & lbltotal.Text & "  Su cambio es : " & txtcambio.Text - lbltotal.Text & MsgBoxStyle.YesNo)

    jueves, 10 de mayo de 2018 2:06

Respuestas