Kodu aşağıdaki ile değiştirip doğru hesaplayıp hesaplamadığını bildirirseniz sevinirim.

Private Sub Komut12_Click()

qem = Format((0.8) * (Nort) * ((B + 0.3) / B) * ((B + 0.3) / B) * (1 + (D / (3 * B))) / 10, "####.00")

End Sub



Private Sub Komut16_Click()

Me.YASS = Replace(YASS, ",", ".")

If Me.YASS < B Then

qem = (((0.8) * (Nort) * ((B + 0.3) / B) * ((B + 0.3) / B) * (1 + (D / (3 * B)))) / 10) * Cw

ElseIf B < YASS Then

qem = (0.8) * (Nort) * ((B + 0.3) / B) * ((B + 0.3) / B) * (1 + (D / (3 * B))) / 10

End If



End Sub





Private Sub YASS_AfterUpdate()

Me.YASS = Replace(YASS, ",", ".")

Cw = Format(0.5 + 0.5 * (YASS / (D + B)), "####.00")

End Sub