في أي يوم كان هذا التاريخ

<h1 align="center"><font face="Tahoma (Arabic)">في أي يوم كان هذا التاريخ</font></h1> <hr color="#0000FF"> <p align="center" dir="rtl"><font face="Tahoma (Arabic)">ادخل التاريخ و انقر الزر ادناه ليدلك على اليوم الذي كان في هذا التاريخ<br> <input type="text" size="20" name="TxtDate"><br> <input type="submit" name="Btn1" value="من فضلك يا ساودينت قل لي في اي يوم كان هذا التاريخ" style="font-family: Tahoma"> <script language="VBScript"> Sub Btn1_OnClick() Dim DayVal, Message, MyDate MyDate = DateValue(TxtDate.Value) DayVal = Weekday(MyDate) If DayVal = 1 then Message = "الأحد" If DayVal = 2 then Message = "الإثنين" If DayVal = 3 then Message = "الثلاثاء" If DayVal = 4 then Message = "الأربعاء" If DayVal = 5 then Message = "الخميس" If DayVal = 6 then Message = "الجمعة" If DayVal = 7 then Message = "السبت" Message = "هذا التاريخ كان يوم " + Message + "." MsgBox Message, 64,"هذا التاريخ في اي يوم كان يا ساودينت العبفري?" End Sub </script> </font></p>