Yapmak istediklerinizi Select Case komutuyla yazdırabilirsiniz.
'sarfiyat (girilen sarfiyat miktarı
'a=0-20 Arası *20
'b=21-30 arası *25
'c=31-40 arası *30
'd=41-50 arası *35
'e=51 ve sonrası *40
Ben metin kutularını böyle adlandırdım, siz değiştirebilirsiniz. Sarfiyat metin kutusunun Güncelleştirme sonrasında olayında kodumuz şu şekilde olmalıdır.
Kod:
Select Case sarfiyat
Case 1 To 20
a = sarfiyat * 20
b = 0
c = 0
d = 0
e = 0
Case 21 To 30
a = 20 * 20
b = sarfiyat * 25
c = 0
d = 0
e = 0
Case 31 To 40
a = 20 * 20
b = 9 * 25
c = sarfiyat * 30
d = 0
e = 0
Case 41 To 50
a = 20 * 20
b = 9 * 25
c = 9 * 30
d = sarfiyat * 35
e = 0
Case Is > 50
a = 20 * 20
b = 9 * 25
c = 9 * 30
d = 9 * 35
e = (sarfiyat - 51) * 40
End Select
End Sub