Skip to main content

AccessTr.neT


Gelir Vergisi Hesaplama

Yunus Bozkurt
Yunus Bozkurt
8
513

Gelir Vergisi Hesaplama

Çözüldü #1
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
.zip gelirvergisihesapla.zip (Dosya Boyutu: 38,83 KB | İndirme Sayısı: 10)
  • En tehlikeli kelime ama’dır. Önceden söylenen her söylemi veya kelimeyi öldürür! Mesela, seni seviyorum ama gibi…
Son Düzenleme: 14/02/2022, 10:31, Düzenleyen: Yunus Bozkurt.
Cevapla
#2
sorun ne ve tam olarak ne yaptığınızda çıkıyor?
Cevapla
#3
bir işlev derlenirken hata oldu. uyarısı alıyorum.
  • En tehlikeli kelime ama’dır. Önceden söylenen her söylemi veya kelimeyi öldürür! Mesela, seni seviyorum ama gibi…
Cevapla
#4
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
Cevapla
#5
gelir vergisi hesapla sorgusunu çalıştırırmısınız.

personelin kümülatif gelir vergisine bakarak aylık gelir vergisini bulmak istiyorum.
  • En tehlikeli kelime ama’dır. Önceden söylenen her söylemi veya kelimeyi öldürür! Mesela, seni seviyorum ama gibi…
Son Düzenleme: 14/02/2022, 14:46, Düzenleyen: Yunus Bozkurt.
Cevapla
#6
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da