<%
islem=request.querystring("islem")
if islem=1 then
gun=request.form("gun")
gunucret=request.form("gunucret")
dgvmat=request.form("dgvmat")
ssktavan=request.form("ssktavan")
if (gun="") then gun=0 end if
if (gunucret="") then gunucret=0 end if
if (dgvmat="") then dgvmat=0 end if
if (ssktavan="") then ssktavan=0 end if
Aylikucret=gun*gunucret
if aylikucret=ssktavan then Sigorta=ssktavan*0.14 end if
issizlik=aylikucret*0.01
Tsigorta=Sigorta+issizlik
Gelir_vergisi_matrahi=aylikucret-(sigorta+issizlik)+dgvmat
if Gelir_vergisi_matrahi<=7000 then gelir_vergisi=Gelir_vergisi_matrahi*0.15 end if
if (Gelir_vergisi_matrahi>7000) and (Gelir_vergisi_matrahi<=18000) then gelir_vergisi=(Gelir_vergisi_matrahi-7000)*0.20+1050 end if
if (Gelir_vergisi_matrahi>18000) and (Gelir_vergisi_matrahi<=40000) then gelir_vergisi=(Gelir_vergisi_matrahi-18000)*0.27+3250 end if
if (Gelir_vergisi_matrahi>40000) then gelir_vergisi=(Gelir_vergisi_matrahi-40000)*0.35+9190 end if
if dgvmat<=7000 then esgelir_vergisi=dgvmat*0.15 end if
if (dgvmat>7000) and (dgvmat<=18000) then esgelir_vergisi=(dgvmat-7000)*0.20+1050 end if
if (dgvmat>18000) and (dgvmat<=40000) then esgelir_vergisi=(dgvmat-18000)*0.27+3250 end if
if (dgvmat>40000) then esgelir_vergisi=(dgvmat-40000)*0.35+9190 end if
Songv=Gelir_vergisi-esgelir_vergisi
Damga_Vergisi=aylikucret*0.006
Vergiler=songv+damga_vergisi
Kesintiler_toplami=sigorta+issizlik+songv+damga_vergisi
Net=aylikucret-kesintiler_toplami
end if
function ytl(ucret)
ytl=left(formatcurrency(ucret),len(formatcurrency(ucret))-3)
end function
%>