Asgari Geçim İndirim puanlama

[ozkovlu]

Merhabalar;
Birden fazla koşula bağlı olarak değerleri aldırmak için aşağıdaki formülü hazırladım. Ancak 3 aşamadan sonra hata verdi.
Bunu daha kestirme yol ile nasıl yapabilirim

=EĞER(YADA([@[Eş Durumu]]="Bekar";[@[Eş Durumu]]="Çalışıyor");50;EĞER([@[Eş Durumu]]="Çalışmıyor";60;EĞER([@[Eş Durumu]]="Çalışmıyor";[@[Çocuk Sayısı
0-6 yaş]]+[@[Çocuk Sayısı 6+ Yaş]]=1;67,5)))

Eğer

1- Bekar ise : 50

2- Çalışmayan : 60
3- Çalışmayan 1 çocuk : 67,5
4- Çalışmayan 2 çocuk : 75
5- Çalışmayan 3 çocuk : 80
6- Çalışmayan 4 çocuk : 80

7- Çalışan : 50
8- Çalışan 1 çocuk : 57,5
9- Çalışan 2 çocuk : 65
10- Çalışan 3 çocuk : 70
11- Çalışan 4 çocuk : 75
12- Çalışan 5 çocuk : 80

 

[Ömer BARAN]

Merhaba.

Sorularınızı ekran görüntüsü yerine,
gerçek belgenizin özel bilgi içermeyen küçük boyutlu bir kopyası
şeklinde hazırlayacağınız örnek belge üzerinden sorarsanız
daha hızlı ve net sonuca ulaşmanız kolaylaşır.

Ayrıca; destek istediğiniz konuyla ilgili olarak forum sayfalarının üst orta bölümünden ARAMA yaparsanız
çözülmüş örnekler de bulabileceğinizi düşünüyorum.

Yanılmıyorsam, benzer konular forumda mevcut.
.

 

[ozkovlu]

Asgari geçim indiriminden yararlanan
İndirim oranı

Çalışanın kendisi %50

Çalışmayan ve
herhangi bir geliri olmayan eş %10

1. çocuk % 7,5
2. çocuk % 7,5
3. çocuk % 10
4. çocuk % 5
5. çocuk % 5

halit3 ve YUSUF44 alıntı

Function AGind(medenihali, cocuklar)
deger1 = 50 'kendisi
deger2 = 10 'eşi
deger3 = 0 'çocuklar

son = 5
If cocuklar > son Then cocuklar = son

ReDim veri(son)
veri(1) = 7.5
veri(2) = 7.5
veri(3) = 10
veri(4) = 5
veri(5) = 5

If medenihali = "Bekar" Then
AGind = deger1
End If

If medenihali = "Çalışıyor" Then
For i = 1 To Val(cocuklar)
deger3 = deger3 + veri(i)
Next
AGind = deger1 + deger3
End If

If medenihali = "Çalışmıyor" Then
deger2 = 10
For i = 1 To Val(cocuklar)
deger3 = deger3 + veri(i)
Next
AGind = deger1 + deger2 + deger3
If deger1 + deger2 + deger3 > 85 Then AGind = 85
End If


End Function