Gelir Vergisi Hesaplama

1 2
14/02/2022, 10:24

Yunus Bozkurt

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.

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]", "vdilimleri")
AylıkMatrah = Dlookup ("[GVMatrahi]", "puantajlar Sorgu1")
BirikimliMatrah = Dlookup ("[Kumulatif]", "s_kumulatif") ' buda ilgili personelin kümülatif toplamı olmalı

' yukarı kısmı değiştirdim. aşağısı aynı.

Function VERGI(Barem1, Barem2, Barem3, Barem4, BirikimliMatrah, AylıkMatrah)
If BirikimliMatrah <= Barem1 Then
VERGI = AylıkMatrah * 0.15
ElseIf BirikimliMatrah - Barem1 <= AylıkMatrah Then
VERGI = (BirikimliMatrah - Barem1) * 0.2 + (AylıkMatrah - (BirikimliMatrah - Barem1)) * 0.15
ElseIf BirikimliMatrah <= Barem2 Then
VERGI = AylıkMatrah * 0.2
ElseIf BirikimliMatrah - Barem2 <= AylıkMatrah Then
VERGI = (BirikimliMatrah - Barem2) * 0.25 + (AylıkMatrah - (BirikimliMatrah - Barem2)) * 0.2
ElseIf BirikimliMatrah <= Barem3 Then
VERGI = AylıkMatrah * 0.27
ElseIf BirikimliMatrah - Barem3 <= AylıkMatrah Then
VERGI = (BirikimliMatrah - Barem3) * 0.3 + (AylıkMatrah - (BirikimliMatrah - Barem3)) * 0.27
ElseIf BirikimliMatrah <= Barem4 Then
VERGI = AylıkMatrah * 0.35
ElseIf BirikimliMatrah - Barem4 <= AylıkMatrah Then
VERGI = (BirikimliMatrah - Barem4) * 0.35 + (AylıkMatrah - (BirikimliMatrah - Barem4)) * 0.35
ElseIf BirikimliMatrah > Barem4 Then
VERGI = AylıkMatrah * 0.35
End If
End Function
14/02/2022, 12:02

berduş

sorun ne ve tam olarak ne yaptığınızda çıkıyor?
14/02/2022, 13:20

Yunus Bozkurt

bir işlev derlenirken hata oldu. uyarısı alıyorum.
14/02/2022, 14:22

berduş

bende hata vermedi o nedenle tam olarak ne yaptığınızda çıkıyor? diye sordum
formu açıp kayda gidip Puantaj yap düğmesine bastım kayıtların güncelleneceği ile ilgili uyarıları verip işlemi gerçekleştirdi hata uyarısı vermedi
siz hangi adımları izlediğinizde hata veriyor
14/02/2022, 14:43

Yunus Bozkurt

gelir vergisi hesapla sorgusunu çalıştırırmısınız.

personelin kümülatif gelir vergisine bakarak aylık gelir vergisini bulmak istiyorum.
14/02/2022, 22:53

berduş

sorun galiba modülde doğrudan değer atamanızdan kaynaklanıyor
Barem1 = Dlookup ("[Barem1]", "vdilimleri")
Barem2 = Dlookup ("[Barem2]", "vdilimleri")
Barem3 = Dlookup ("[Barem3]", "vdilimleri")
Barem4 = Dlookup ("[Barem4]", "vdilimleri")
AylıkMatrah = Dlookup ("[GVMatrahi]", "puantajlar Sorgu1")
BirikimliMatrah = Dlookup ("[Kumulatif]", "s_kumulatif")
gibi değer atamalarını fonksiyon yada sub içinde yaparak dener misiniz?
bu değerlere nerede ihtiyacınız var? mesela bu atamaları anaformunuz yüklenirken yapabilirsiniz
1 2