Mustafa Gülşen'in Mevzuat Sitesi2006 Yılı Gelir Vergisi
<%
islem=request.querystring("islem")
if islem=1 then
Gelir_vergisi_matrahi=request.form("Gelir_vergisi_matrahi")
if (gun="") then gun=0 end if
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
end if
function ytl(ucret)
ytl=left(formatcurrency(ucret),len(formatcurrency(ucret))-3)
end function
%>
2007 Yılı Gelir Vergisi
<%
islem=request.querystring("islem")
if islem=1 then
Gelir_vergisi_matrahi=request.form("Gelir_vergisi_matrahi")
if (gun="") then gun=0 end if
if Gelir_vergisi_matrahi<=7500 then gelir_vergisi=Gelir_vergisi_matrahi*0.15 end if
if (Gelir_vergisi_matrahi>7500) and (Gelir_vergisi_matrahi<=19000) then gelir_vergisi=(Gelir_vergisi_matrahi-7500)*0.20+1125 end if
if (Gelir_vergisi_matrahi>19000) and (Gelir_vergisi_matrahi<=43000) then gelir_vergisi=(Gelir_vergisi_matrahi-19000)*0.27+3425 end if
if (Gelir_vergisi_matrahi>43000) then gelir_vergisi=(Gelir_vergisi_matrahi-43000)*0.35+9905 end if
end if
function ytl(ucret)
ytl=left(formatcurrency(ucret),len(formatcurrency(ucret))-3)
end function
%>
2008 Yılı Gelir Vergisi
<%
islem=request.querystring("islem")
if islem=1 then
Gelir_vergisi_matrahi=request.form("Gelir_vergisi_matrahi")
if (gun="") then gun=0 end if
if Gelir_vergisi_matrahi<=7800 then gelir_vergisi=Gelir_vergisi_matrahi*0.15 end if
if (Gelir_vergisi_matrahi>7800) and (Gelir_vergisi_matrahi<=19800) then gelir_vergisi=(Gelir_vergisi_matrahi-7800)*0.20+1170 end if
if (Gelir_vergisi_matrahi>19800) and (Gelir_vergisi_matrahi<=44700) then gelir_vergisi=(Gelir_vergisi_matrahi-19800)*0.27+3570 end if
if (Gelir_vergisi_matrahi>44700) then gelir_vergisi=(Gelir_vergisi_matrahi-44700)*0.35+10293 end if
end if
function ytl(ucret)
ytl=left(formatcurrency(ucret),len(formatcurrency(ucret))-3)
end function
%>