<%
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)
%>
Hicri Takvim |
2 Mesajlar | 1.787 Okunma | ||
- Üyelik 06.12.2010
- Yaş/Cinsiyet 27 /
- Meslek Öğrenci.
- Konum
- Ad Soyad ** **
- Mesajlar 144
- Beğeniler 0 / 4
- Ticaret 1, (%100)
Güzeldir :)
