¿Cómo sumar con decimales con comandos de un formulario?

Tengo un problema con una suma automática, cree un user_form y un modulo, en el modulo coloque: (Public Costo As Integer) y en el user_form coloque un label, 5 checkbox. Y a todos los checkbox le coloque el siguiente comando:

    Costo = 0
    If OptionButton1 = True Then
        If CheckBox1 = True Then
            Costo = Costo + 20
        End If
        If CheckBox2 = True Then
            Costo = Costo + 30
        End If
        If CheckBox3 = True Then
            Costo = Costo + 40
        End If
        If CheckBox4 = True Then
            Costo = Costo + 50
        End If
        If CheckBox5 = True Then
            Costo = Costo + 60
        End If
    End If
    If OptionButton2 = True Then
        If CheckBox1 = True Then
            Costo = Costo + 120
        End If
        If CheckBox2 = True Then
            Costo = Costo + 130
        End If
        If CheckBox3 = True Then
            Costo = Costo + 140
        End If
        If CheckBox4 = True Then
            Costo = Costo + 150
        End If
        If CheckBox5 = True Then
            Costo = Costo + 160
        End If
    End If
    If OptionButton3 = True Then
        If CheckBox1 = True Then
            Costo = Costo + 220
        End If
        If CheckBox2 = True Then
            Costo = Costo + 230
        End If
        If CheckBox3 = True Then
            Costo = Costo + 240
        End If
        If CheckBox4 = True Then
            Costo = Costo + 250
        End If
        If CheckBox5 = True Then
            Costo = Costo + 260
        End If
    End If
    Label1 = Costo
End Sub

La cual me mostraba en el label1 lo que sumo automáticamente, pero mi problema es que quiero los costos en decimales y que en el label1 me lo muestre en decimales y que lo sume todo, osea, que si le pongo a uno que si esta activo le sume a costo 20.5 y si el CheckBox2 esta activo que al costo le sume 30.45 y que en el label1 se muestre automáticamente el resultado la cual es 50.95.

¿Me podrian ayudae?

1

1 Respuesta

39.500 pts. Si de mis mayores gustos, mis disgustos han nacido,...

Cambia (Public Costo As Integer) por (Public Costo As single o double) tienes declarada la variable costo para solo aceptar números enteros con single la variable puede trabajar hasta con 6 decimales, double hasta con 14 decimales, ya depende cual quieras usar.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas