Güzeldir :)


<%

d=Day(now)

m=Month(now)

y=Year(now)

%>



<script>

function intPart(floatNum){

if (floatNum< -0.0000001){

return Math.ceil(floatNum-0.0000001)

}

return Math.floor(floatNum+0.0000001)

}

</script>



<%

jd=intpart((1461*(y+4800+intpart((m-14)/12)))/4)+intpart((367*(m-2-12*(intpart((m-14)/12))))/12)-intpart((3*(intpart((y+4900+intpart( (m-14)/12))/100)))/4)+d-32075

l=jd-1948440+10632

n=intpart((l-1)/10631)

l=l-10631*n+354

j=(intpart((10985-l)/5316))*(intpart((50*l)/17719))+(intpart(l/5670))*(intpart((43*l)/15238))

l=l-(intpart((30-j)/15))*(intpart((17719*j)/50))-(intpart(j/16))*(intpart((15238*j)/43))+29

m=intpart((24*l)/709)

d=l-intpart((709*m)/24)

y=30*n+j-30



Select Case m

Case 1 :ay="Muharrem"

Case 2 :ay="Safer"

Case 3 :ay="Rebiü'l-Evvel"

Case 4 :ay="Rebiü'l-Ahir"

Case 5 :ay="Cemaziye'l-Evvel"

Case 6 :ay="Cemaziye'l-Ahir"

Case 7 :ay="Recep"

Case 8 :ay="Saban"

Case 9 :ay="Ramazan"

Case 10 :ay="Sevval"

Case 11 :ay="Zi'l-ka'de"

Case 12:ay="Zi'l-Hicce"

End Select

Response.Write(d&" " &ay&" " &y)

%>