تقويم السنة الميلادي

<script language="VBScript"><!-- Sub JANUARY_onClick() DisplayMonth(1) End Sub Sub FEBRUARY_onClick() DisplayMonth(2) End Sub Sub MARCH_onClick() DisplayMonth(3) End Sub Sub APRIL_onClick() DisplayMonth(4) End Sub Sub MAY_onClick() DisplayMonth(5) End Sub Sub JUNE_onClick() DisplayMonth(6) End Sub Sub JULY_onClick() DisplayMonth(7) End Sub Sub AUGUST_onClick() DisplayMonth(8) End Sub Sub SEPTEMBER_onClick() DisplayMonth(9) End Sub Sub OCTOBER_onClick() DisplayMonth(10) End Sub Sub NOVEMBER_onClick() DisplayMonth(11) End Sub Sub DECEMBER_onClick() DisplayMonth(12) End Sub Sub DisplayMonth(imonth) dim MonthName(12) MonthName(1)="يناير" MonthName(2)="فبراير" MonthName(3)="مارس" MonthName(4)="ابريل" MonthName(5)="مايو" MonthName(6)="يونيو" MonthName(7)="يوليو" MonthName(8)="اغسطس" MonthName(9)="سبتمبر" MonthName(10)="أكتوبر" MonthName(11)="نوفمبر" MonthName(12)="ديسمبر" document.clear document.write "<CENTER>" document.write "<FONT FACE='Verdana' SIZE=5>" document.write MonthName(imonth) & " " & Year(date) document.write "<P>" document.write "<TABLE CELLPADDING=10 BORDER><TR>" document.write "<TD><B>الأحد<TD><B>الإثنين<TD><B>الثلاثاء<TD><B>الأربعاء<TD><B>الخميس<TD><B>الجمعة<TD><B>السبت" document.write "<TR>" firstdate=DateSerial(year(date), imonth, 1) thisdate=firstdate nextday=1 For cday=1 to 7 If WeekDay(thisdate)>cday Then document.write "<TD></TD>" else document.write "<TD ALIGN=CENTER><FONT SIZE=3>" & nextday & "</TD>" nextday=nextday+1 thisdate=DateSerial(year(date), imonth, nextday) End If Next document.write "<TR>" weekDays=1 while month(thisdate)=imonth document.write "<TD ALIGN=CENTER><FONT SIZE=3>" & nextday & "</TD>" nextday=nextday+1 weekDays=weekDays+1 If weekDays>7 then WeekDays=1 document.write "<TR>" End If thisdate=DateSerial(year(date), imonth, nextday) wend document.write "</TABLE>" document.write "</CENTER>" document.close End Sub --></script> </font></p> <h1 align="center"><font color="#000080" size="4" face="Tahoma (Arabic)">تقويم السنة الميلادي </font></h1> <p align="center"><font color="#000080" size="2" face="Tahoma (Arabic)">انقر فوق الشهر لترى ايام الشهر </font></p> <div align="center"><center><table border="1" cellpadding="10"> <font color="#000080" size="6" face="Verdana"><COLGROUP></font><font color="#000080" size="6" face="Verdana"><COL ALIGN="CENTER"></font><font color="#000080" size="6" face="Verdana"><COL ALIGN="CENTER"></font><font color="#000080" size="6" face="Verdana"><COL ALIGN="CENTER"></font> <tr> <td><font color="#000080" size="6" face="Verdana"><input type="button" name="January" value="ينــــايـــر" style="font-family: Tahoma; font-weight: bold"> </font></td> <td><font color="#000080" size="6" face="Verdana"><input type="button" name="February" value="فبــرايــــر" style="font-family: Tahoma; font-weight: bold"> </font></td> <td><font color="#000080" size="6" face="Verdana"><input type="button" name="March" value="مــــارس" style="font-family: Tahoma; font-weight: bold"> </font></td> </tr> <tr> <td><font color="#000080" size="6" face="Verdana"><input type="button" name="April" value="ابـــريـــل" style="font-family: Tahoma; font-weight: bold"> </font></td> <td><font color="#000080" size="6" face="Verdana"><input type="button" name="May" value="مــــايــو" style="font-family: Tahoma; font-weight: bold"> </font></td> <td><font color="#000080" size="6" face="Verdana"><input type="button" name="June" value="يــــونيــو" style="font-family: Tahoma; font-weight: bold"> </font></td> </tr> <tr> <td><font color="#000080" size="6" face="Verdana"><input type="button" name="July" value="يــــولــيـو" style="font-family: Tahoma; font-weight: bold"> </font></td> <td><font color="#000080" size="6" face="Verdana"><input type="button" name="August" value="أغسطس" style="font-family: Tahoma; font-weight: bold"> </font></td> <td><font color="#000080" size="6" face="Verdana"><input type="button" name="September" value="سبتــمبر" style="font-family: Tahoma; font-weight: bold"> </font></td> </tr> <tr> <td><font color="#000080" size="6" face="Verdana"><input type="button" name="October" value="أكـــتوبــر" style="font-family: Tahoma; font-weight: bold"> </font></td> <td><font color="#000080" size="6" face="Verdana"><input type="button" name="November" value="نــوفمبــر" style="font-family: Tahoma; font-weight: bold"> </font></td> <td><font color="#000080" size="6" face="Verdana"><input type="button" name="December" value="ديسمــبر" style="font-family: Tahoma; font-weight: bold"> </font></td> </tr> </table> </center></div>