ya arkadaşlar maaş yetiştirecem ama gelir vergisini hesaplayamadım

[ferhatgurbuz]

bana yardım edin çok zor durumdayım

 

[uzman069]

vergi matrahı

ekteki dosyayı incele umarım olay çözülür

 

[captan]

Sayın FerhatGürbüz işinize karışmak gibi olmasın ama Örnek Dosya olarak eklediğiniz dosyanın Adı Tekirdağ ve Dosyanın içinde Tekirdağ'da tanınmış olabilecek birçok kişinin bilgileri yazıyor.

İsterseniz isimlerde bir değişiklik yapın

 

[uzman069]

vergi matrahı

özür dilerim yanlışlıkla 2006 yılına ait matrahları gönderdim 2007 yılına ait dosya ektedir.

 

[tufan03]

Function VERGİ2007(KümlatifMatrah As Double, VergiMatrahi As Double)
If KümlatifMatrah + VergiMatrahi <= 7500# Then VERGİ2007 = 0.15 * VergiMatrahi: Exit Function
If KümlatifMatrah + VergiMatrahi >= 7501# And KümlatifMatrah + VergiMatrahi <= 18000# Then
ilkoran = 0.15: ikincioran = 0.2: sontutar = 7500#: GoTo hesapla
ElseIf KümlatifMatrah + VergiMatrahi >= 18001# And KümlatifMatrah + VergiMatrahi <= 40000# Then
ilkoran = 0.2: ikincioran = 0.27: sontutar = 18000#: GoTo hesapla
ElseIf KümlatifMatrah + VergiMatrahi >= 40001# Then
ilkoran = 0.27: ikincioran = 0.35: sontutar = 40000#: GoTo hesapla
End If
hesapla:
If KümlatifMatrah <= sontutar Then
VERGİ2007 = ilkoran * ((sontutar - KümlatifMatrah)) + ikincioran * (((KümlatifMatrah + VergiMatrahi) - sontutar))
Else
VERGİ2007 = ikincioran * VergiMatrahi
End If
End Function
Yukardaki kodları bir modüle yapıştır.
A1 Hücresi=Sürgelen matrah, B1 Hücresi =Bu maaşın matrahı
C1 Hücresine =Vergi2007(A1;B1) yazasan otamatik hesaplar.

 

[ferhatgurbuz]

Zannedersem ufak bir hata var

&#246;z&#252;r dilerim ben yanl&#305;&#351; kontrol etmi&#351;im kusura bakmay&#305;n te&#351;ekk&#252;rler