vergi dilimleri eğer

[excelevent]

vergi dilimlerini sütünlarda toplatabilme

 

[Skorpiyon]

Sayın excelevent,

Aşağıdaki dosyayı inceleyiniz.

 

[excelevent]

kardeşim mantıksal bir hata var.eğer 15000 lira kadar olam kısım olsaydı 1800 olacak diğer sütunları hesaplamayacak 15000 liranın üstüne çıkarsa diyelimki 30000 tl için ozaman 15000 lirası için yüzde 12 diğer kalan için 10 bu bağlamda yaneiden gözden geçirmen mümkün tşkler

 

[excelevent]

vergi oranları örnek yeni anlatım

vergi oranları biraz daha açarak anlatmaya çalıştım yardım ederseniz sevinirm

 

[halit3]

vergi oranları biraz daha açarak anlatmaya çalıştım yardım ederseniz sevinirm

ekli dosyaya bir bak

Function GELIRBUL(Sayi)
Dim a(8)
Dim b(8)
Dim c(8)
Dim vergi(8)
i = 1
vergi1 = 0
rakam = Sayi
b(1) = Sheets("Sayfa1").Cells(17, 11).Value
b(2) = Sheets("Sayfa1").Cells(18, 11).Value
b(3) = Sheets("Sayfa1").Cells(19, 11).Value
b(4) = Sheets("Sayfa1").Cells(20, 11).Value
b(5) = Sheets("Sayfa1").Cells(21, 11).Value
b(6) = Sheets("Sayfa1").Cells(22, 11).Value
b(7) = Sheets("Sayfa1").Cells(23, 11).Value
b(8) = Sheets("Sayfa1").Cells(24, 11).Value
c(1) = Sheets("Sayfa1").Cells(17, 9).Value
c(2) = Sheets("Sayfa1").Cells(18, 9).Value - Sheets("Sayfa1").Cells(17, 9).Value
c(3) = Sheets("Sayfa1").Cells(19, 9).Value - Sheets("Sayfa1").Cells(18, 9).Value
c(4) = Sheets("Sayfa1").Cells(20, 9).Value - Sheets("Sayfa1").Cells(19, 9).Value
c(5) = Sheets("Sayfa1").Cells(21, 9).Value - Sheets("Sayfa1").Cells(20, 9).Value
c(6) = Sheets("Sayfa1").Cells(22, 9).Value - Sheets("Sayfa1").Cells(21, 9).Value
c(7) = Sheets("Sayfa1").Cells(23, 9).Value - Sheets("Sayfa1").Cells(22, 9).Value
c(8) = Sheets("Sayfa1").Cells(24, 9).Value - Sheets("Sayfa1").Cells(23, 9).Value

While rakam > 0
If rakam >= c(i) Then
a(i) = c(i)
vergi(i) = ((c(i) * b(i)) / 1)
rakam = rakam - c(i)
ElseIf rakam < c(i) Then
c(i) = rakam
rakam = rakam - c(i)
vergi(i) = ((c(i) * b(i)) / 1)
End If
vergi1 = vergi1 + vergi(i)
i = i + 1
Wend
If vergi1 > 160 Then
vergi1 = vergi1
Else
vergi1 = 160
End If
GELIRBUL = vergi1
End Function

 

[excelevent]

kardeş çok güzel olmuş,ellerin dert görmesin, bı tabloya yarın bişey ekleyecem senin için kolay olacak bişey ilgilenirsen beni çok mutlu edersin.
gecen hayırlı olsun, allah ne muradın varsa versin.tekrar tekrar ellerin dert görmesin