if..then..else hk.

[ugurakin]

Private Sub CommandButton4_Click()
CommandButton2.Enabled = True

If (Brut + tmp3) > SSKTavan Then
    SSKPrim = Format(SSKTavan * tmp1 / 100, "#,##0.00")
    GoTo Rutin
End If

SSKPrim = Format((Brut + tmp3) * tmp1 / 100, "#,##0.00")

Rutin:
Issizlik = Format((Brut + tmp3) * tmp2 / 100, "#,##0.00")

yukarıdaki kodlamada brut ile tmp3 ün toplamının SSKTavan dan büyük olması durumunda 1.hesaplamayı

SSKPrim = Format(SSKTavan * tmp1 / 100, "#,##0.00")

olmaması durumunda da 2.hesaplamayı

SSKPrim = Format((Brut + tmp3) * tmp1 / 100, "#,##0.00")

yapmasını istedim.

Yukarıda döngü ilişkisi kurarken bir hata yaptım diye düşünüyorum çünkü 1.koşul gerçekleştiğinde SSKPrim = 0 oluyor.

if then else kodlarıyla nasıl çözebilirim yada bir başka yolu var mı?

(brüt ile tmp3 ün toplamı ssktavan dan büyükse 1.formulü değilse
2.formülü işleme al)

 

[selections]

If (Brut + tmp3) > SSKTavan Then 
    SSKPrim = Format(SSKTavan * tmp1 / 100, "#,##0.00") 
    GoTo Rutin
else
SSKPrim = Format((Brut + tmp3) * tmp1 / 100, "#,##0.00") 
End If

 

[ugurakin]

sağol selections.