Dim CY As Integer
Dim YT As Integer
 
'Çocuk Yardımı İstisna Tutarı: Brüt Asgari Ücret in % 2 'si. Güncel Olarak=51,17 TL
Metin597 = CDbl([ASÜCR] * 0.02)
 
 
'Yasal olarak verilen çocuk yardımı çocuk başına 25 tl.
CY = [ÇOCUK] * [BİLGİ].[Form]![SOSYAR]
 
'İki çocuk için 50 tl aylık yardım veriyoruz ancak Çocuk yardımı istisna tutarı 51,17 tl.
'Bu durumda da yardım tutarı kadar istisna uygulanması gerekiyor. bir de üç çocuk durumu var.
'Üç çocukta 75 tl veriyoruz ama yasal olarak iki çocuk tutarında istisna uygulanması gerekiyor.
'Yani yasal miktarlar değişene kadar iki çocuk için verilen yardım kadar istisna uygulaması gerekiyor.
'bir de üç cocuk yardımı yapsak bile iki çocuk tutarı için istisna uygulaması gerekiyor.
 
If [ÇOCUK] >= 2 And CY > Metin597 Then Metin601 = Metin597
If [ÇOCUK] = 1 Then Metin601 = CY
If Nz([ÇOCUK], 0) = 0 Then Metin601 = 0
 
 
'Yemek Yardımı istisna tutarı için ise farklı bir durum var.
 
'Yemek İstisna Tutarı İse : Brüt Asgari Ücret / 30 x %6 'sı. Güncel Olarak =5,12 TL
Metin599 = CDbl([ASÜCR] / 30 * 0.06)
 
'Örneğin yemek yardımını 5 tl veren 8 tl veren yani faklı ödeme yapan yerler var.
'Yasal bir durum yok şu anda. 5 tl veren yerler için ayda 20 iş günü olduğunu
'düşünürsek yasal hesaplama olarak günlük 5,12 tl yemek yardımı istisna tutarı hesaplanıyor.
 
YT = [BİLGİ].[Form]![YEMYAR]
If YT > Metin599 Then Metin604 = Metin599 Else Metin604 = YT
 
 
'20 iş günü için 5*20=100 tl yemek yardımı veriliyor.
'Ancak istisna tutarı 5,12*20=102,40 tl yapıyor. Yani yine yapılan yardım tutarı kadar istisna uygulaması gerekiyor.
'8 tl ödeyenler için ise 8*20=160 tl Anca istisna tutarı ise 5,12*20=102,40 tl. Bu durumda da şöyle bişey çıkıyor.
 
Metin606 = XYİT * Metin604
Metin608 = XYİT * YT
 
'Yardım tutarı olan 160 tl nin 102,40 tl sine istisna uygulanması gerekiyor.Artan 57,60 tl sgk matrah hesabına dahil edilmesi gerekiyor.
 
Metin610 = Metin608 - Metin606