Dostlar merhaba;

Sayın Taruz'un geçmiş yıllarda hazırladığı Gelir Vergisi hesabına ait dosyayı 2010 yılı vergi dilimleri ve oranlarını dikkate alarak güncelledim.

Bu arada verdiği emek dolayısıyla değerli hocama sevgi ve saygılarımı sunarım.

Gelir Vergisi hesaplama koduna ihtiyacım var

Arkadaşlar kolay gelsin access'te yapmış olduğum maaş programı için excel'de aşağıda yapmış oldum formülü access'e nasıl aktaracam yardımcı olurmusunuz

=EĞER(VE(D2>=13000;C2<13001);(D2-13000)*0,2+(13000-C2)*0,15;
EĞER(VE(D2>30000;C2<30000);(D2-30000)*0,27+(30000-C2)*0,2;
EĞER(VE(D2>70000;C2<110000);(D2-70000)*0,27+(70000-C2)*0,27;
EĞER(VE(D2>0;D2<11001);B2*0,15;
EĞER(VE(D2>11000;C2<30000);B2*0,2;
EĞER(VE(D2>30000;C2<70000);B2*0,27;
EĞER(D2>=110000;B2*0,35)))))))

Günnnaaaayyyyddddııınn


Öncelikle şunu söylemem gerek. Uygulamayı yaparken meslektaşlarıma ithafen kolaylaştırıcı bir uygulama olmasını amaçlayarak yaptım.  
Ama siz, Üstadlarımın da görmesi ve geliştirmem gereken yerleri var mı diyerekten hem bana fikir vermeniz hemde bir sonra ki uygulamalarımda düşüncelerinize saygı duymak amacıyla yüklüyorum.  
Ben Best Free ile güncelleme arşiv taramasını gerçekleştirdim her hangi bir problem göremedim. 


UNUTMADAN ..!

Uygulam

Merhaba taruz üstadın gelirvergisi heaplama modulünü eklemeye çalışıyorum. ama hata alıyorum yardım edermisniz?
Sorgum şu şekilde

GelirVergisi: VERGI()

taruz üstadın kodlarını aşağıdaki şekilde değiştirdim.

[vb]Option Compare Database
Dim Barem1, Barem2, Barem3, Barem4, BirikimliMatrah, AylıkMatrah As Currency
Barem1 = Dlookup ("[Barem1]", "vdilimleri")
Barem2 = Dlookup ("[Barem2]", "vdilimleri")
Barem3 = Dlookup ("[Barem3]", "vdilimleri")
Barem4 = Dlookup ("[Barem4]", "vdiliml