Vergİ Dİlİmlerİnİ Uygulama Yardimi

[DENETLEME]

ArkadaŞlar Memur Bordrolarinda Kİ KazanÇlarin Vergİlendİrİlmesİ İle İlgİlİ Yardiminiza İhtİyacim Var Dosyam Ektedİr.
Yardimlariniz İÇİn Şİmdİden TeŞekkÜr Ederİm

 

[Zeki Gürsoy]

İhtiyacınız olan fonksiyon...

Function STOPAJ(Kumulatif_Toplam As Double, Aylik_Ucret As Double) As Double

Dim Fark      As Double
Const UST_I   As Long = 7800
Const UST_II  As Long = 19800
Const UST_III As Long = 44700

[COLOR=DarkGreen] '************* I. DILIM ****************[/COLOR]
If Kumulatif_Toplam <= UST_I Then
    STOPAJ = RoundA(Aylik_Ucret * 0.15, 2)

[COLOR=DarkGreen] '************* II. DILIM ***************[/COLOR]
ElseIf Kumulatif_Toplam > UST_I And Kumulatif_Toplam <= UST_II Then
        Fark = Kumulatif_Toplam - UST_I
        If Fark < Aylik_Ucret Then
            STOPAJ = (Aylik_Ucret - Fark) * 0.15
            STOPAJ = RoundA(STOPAJ + Fark * 0.2, 2)
        Else
            STOPAJ = RoundA(Aylik_Ucret * 0.2, 2)
        End If

[COLOR=DarkGreen] '************* III. DILIM ***************[/COLOR]
ElseIf Kumulatif_Toplam > UST_II And Kumulatif_Toplam <= UST_III Then
        Fark = Kumulatif_Toplam - UST_II
        If Fark < Aylik_Ucret Then
            STOPAJ = (Aylik_Ucret - Fark) * 0.2
            STOPAJ = RoundA(STOPAJ + Fark * 0.27, 2)
        Else
            STOPAJ = RoundA(Aylik_Ucret * 0.27)
        End If
[COLOR=DarkGreen]
'************* IV. DILIM ****************[/COLOR]
ElseIf Kumulatif_Toplam > UST_III Then
        Fark = Kumulatif_Toplam - UST_III
        If Fark < Aylik_Ucret Then
            STOPAJ = (Aylik_Ucret - Fark) * 0.27
            STOPAJ = RoundA(STOPAJ + Fark * 0.35, 2)
        Else
            STOPAJ = RoundA(Aylik_Ucret * 0.35, 2)
        End If
End If
End Function

Private Function RoundA(Sayi, Optional Basamak As Long)
Kat& = 10 ^ Abs(Basamak)
If Basamak >= 0 Then RoundA = CDbl(FormatNumber(Left(Sayi, 30), Basamak))
If Basamak < 0 Then RoundA = CDbl(RoundA(FormatNumber(Left(Sayi, 30) / Kat), 0) * Kat)
End Function

 

[assenucler]

Sayın Zeki Gürsoy;

Günaydın, hayırlı Cuma'lar..

Yazdığınız fonksiyonu nasıl kullanılacağını örnekte gösterebilir misiniz?

Teşekkürler.

 

[DENETLEME]

Evet Zekİ Hocam Bu Çok Hora GeÇer Saygilar

 

[assenucler]

Arkadaşlar, excel dosyası var, kodları da Zeki Gürsoy hoca'dan, benim öğrenmek istediğim; bu kodları nereye yazacağım ve nasıl kullanacağım?

Bir kaç satır yazmanızı bekliyorum. İlgi duyan ve yardımını esirgemeyen dostlara, teşekkürler.

 

[Necdet]

Aşağıdaki linki inceleyebilirsiniz.

Sayın yurttaş'a ait fonksiyonla çözüm.

http://www.excel.web.tr/showthread.php?t=50977&highlight=vergi+dilim+hesaplama

 

[assenucler]

Sayın Necdet Yeşertener;

Günaydın.

Gösterdiğiniz yakın ilgi ve yanıtınız için teşekkürler. İyi ramazanlar, sağolun, varolun.

Sevgi ve saygılar.

 

[Zeki Gürsoy]

2 gün yoktum, kusura bakmayın.

Alt + F11 ile VBA editörüne geçtikten sonra resimde görülen menu eylemini yapın.

Ekteki kodu karşınıza gelecek beyaz alana (sayfaya) yapıştırın.

********************************

Sayfa üzerinde ise,

Ör:

=STOPAJ(7000;1000)

şeklinde kullanabilirsiniz.

 

[assenucler]

Sayın Zeki Gürsoy;

Hayırlı pazarlar ve ramazanlar.

İlginiz ve güzel yanıtınız için sonsuz teşekkürlerimi, lütfen kabul ediniz.

Acaba, bu kodları Access mdb dosyası için de kullanabilir miyim?

Sevgi ve saygılar.

 

[Zeki Gürsoy]

Sayın Zeki Gürsoy;

Hayırlı pazarlar ve ramazanlar.

İlginiz ve güzel yanıtınız için sonsuz teşekkürlerimi, lütfen kabul ediniz.

Acaba, bu kodları Access mdb dosyası için de kullanabilir miyim?

Sevgi ve saygılar.

Rica ederim. Bu fonksiyonu elbette Accesste de kullanabilirsiniz.

Yalnız burada dikkat etmeniz gereken yeri ise, vergi dilimindeki basamaklardır.

Verdiğim fonksiyonda bu değerleri "sabit" olarak tanımlamıştım.Benim kullandığım "sabit" tanımlar yerine fonksiyonu parametrik hale getirin.

 

[musaagac]

Pekale bunun % 27 ve % 40 lık vergi dilimlerini nasıl yaparız?

 

[assenucler]

Sayın değerli hocam Zeki Gürsoy;

Bilen kişi olarak, beni yönlendirmeniz güzel... Ancak ben yine tıkandım ve fonksiyonu nasıl "parametrik" yapacağımı bilemiyorum.

Sizi de bu dinlence gününüzde yormak istemiyorum. Uygun bir zamanınızda yardımınızı rica edebilir miyim?

Teşekkürler. Her şey gönlünüzce olsun hocam...

Sevgi ve saygılar.

 

[assenucler]

Değerli hocamın verdiği bilgiler ve hazırladığı modül ışığında, hazırlanan dosya ilişiktedir.

Bir kez daha teşekkürler.

 

[hulucenk]

vergi dilimlerine göre hesaplama