Rengne opgave

Private Sub Beregn()
Dim G As Single, væskebrøk As Single
Dim vægt As Single, promille As Single, drikketid As Single, J As Single, I As Single

Const forbrændingshast = 0.1 'g alkohold pr kg legemsvægt pr time

If opthankøn Then
    væskebrøk = 0.68
Else
    væskebrøk = 0.55
End If

vægt = Val(txtVægt.Text)
G = Val(lbl1.Caption) * 12.1 + 14.8 * Val(lbl2.Caption) + 26.4 * Val(lbl3.Caption) + 13.2 * Val(lbl4.Caption) + 15.8 * Val(lbl5.Caption) + 79.2 * Val(lbl6.Caption) + 110.8 * Val(lbl7.Caption) + 132 * Val(lbl8.Caption)
drikketid = Val(txtDrikketid.Text)


If vægt > 0 Then
    G = G - forbrændingshast * vægt * drikketid / 2
    If G < 0 Then G = 0
    promille = G / (vægt * væskebrøk)
    lblPromille.Caption = Format$(promille, "0.00")
End If
   
      J = promille / 0.5
>>>>    I = J / drikketid
    Ilbtimer.Caption = Format$(I, "0")



End Sub