Dj

<% d=Day(now) m=Month(now) y=Year(now) %> <% 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) %> ERCAN DEMIRTAS - Blogcu