Programalama > ASP

<% 
d=Day(now) 
m=Month(now) 
y=Year(now) 
%> 

<SCRIPT LANGUAGE="JavaScript" runat=server> 
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) 
%>