مسلم العراقي
O:: مـشرف عامــ ::O
المشاركات : 173
تاريخ التسجيل : 30/04/2008
الــــعمـــر : 32
الـاقــامــــة : فــي الــقلوب
الجنس : 
قوة النشاط : 6113
الـشعبية : 2
 |  موضوع: لمعرفة في اي ايام الاسبوع ولدت  الثلاثاء 02 ديسمبر 2008, 2:50 pm | |
| في اي ايام الاسبوع كان يوم مولدك اذا اردت معرفة اليوم الذي ولدت فيه فقم بادخال البيانات المطلوبة في الجدول كما هو مبين في المثال
اليوم-الشهر-السنة
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,6,"يوم تاريخ ميلادك"
End Sub
|
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط][ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط][ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] | |
|
Admin
][ الـمدبـر الـعامـ ][
![][ الـمدبـر الـعامـ ][](https://i.servimg.com/u/f80/11/20/23/63/moder110.gif "][ الـمدبـر الـعامـ ][")
المشاركات : 5185
تاريخ التسجيل : 13/04/2007
الــــعمـــر : 33
الـاقــامــــة : العراق
الجنس :
قوة النشاط : 13490
الـشعبية : 11
| | موضوع: رد: لمعرفة في اي ايام الاسبوع ولدت الثلاثاء 09 ديسمبر 2008, 9:50 am | |
| | |
|
