#1  
Alt 06-02-2013, 11:28 PM
WO Üyesi
 
Üyelik tarihi: Jun 2013
Yaş: 26
Mesajlar: 81
Tecrübe Puanı: 399
Free STYLE is on a distinguished road
Standart Hicri takvim.

Kod:
<% 

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) 

%>
Alıntı ile Cevapla
Cevapla

Bookmarks

Etiketler
hicri, takvim

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Forum Sosyal
Powered by vBulletin® Webster Edition
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1 ©2011, Crawlability, Inc.
- Forum

Tasarım : VampRens
Wmofisi.Com Her Hakkı Saklıdır

antalya escort adana escort ankara escort hatay escort bodrum escort gaziantep escort kayseri escort samsun escort afyon escort manisa escort