DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Function agi(medenihali As String, Optional cocuksayisi As Byte)
If medenihali = "Bekar" Then agi = Format(50 / 100, "0.00%")
If medenihali = "Eş Dahil" Then
If cocuksayisi <= 2 Then
agi = Format((50 + 10 + cocuksayisi * 7.5) / 100, "0.00%")
ElseIf cocuksayisi > 2 And cocuksayisi <= 4 Then
agi = Format((15 + 50 + 10 + (cocuksayisi - 2) * 5) / 100, "0.00%")
End If
End If
If medenihali = "Eş Hariç" Then
If cocuksayisi <= 2 Then
agi = Format((50 + cocuksayisi * 7.5) / 100, "0.00%")
ElseIf cocuksayisi > 2 And cocuksayisi <= 4 Then
agi = Format((15 + 50 + (cocuksayisi - 2) * 5) / 100, "0.00%")
End If
End If
End Function