لا يدعم المستعرض الذي تستخدمه الإطارات المضمنة أو تمت تهيئته حالياً حتى لا يدعم الإطارات المضمنة.
<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>
|
