اكواد لمعرفة اليوم وشهر

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

اكواد لمعرفة اليوم وشهر

مُساهمة من طرف أيمن الإبراهيم في الثلاثاء فبراير 04, 2014 2:27 pm

اهلا وسهلا بكم في منتدى مصر التقني
-------------------------------------
لمعرفة اليوم الحالي   قم باستخدام الكود التالي
' ضع هذا الكود في الفورم
الكود:

Private Sub Command1_Click()
Dim Dday As Integer
Dday = Weekday(Date)
If Dday = 1 Then Print "الأحد"
If Dday = 2 Then Print "الاثنين"
If Dday = 3 Then Print "الثلاثاء"
If Dday = 4 Then Print "الأربعاء"
If Dday = 5 Then Print "الخميس"
If Dday = 6 Then Print "الجمعة"
If Dday = 7 Then Print "السبت"
End Sub

-----------------------------------------------------------------------------------------------------
اما بالنسبة لتحديد الشهر   قم باستخدام الكود التالي
' ضع هذا الكود في الفورم
الكود:

Private Sub Command1_Click()
Mmonth = Mid(Date, 4, 2)
Print MonthName(Mmonth)
End Sub

----------------------------------------------------------------------------------
اما بالنسبة اذا اردت ادخال تاريخ ويقوم باعطاك رسالة ما هو اليوم    قم باستخدام الكود التالي 
' ضع هذا الكود في الفورم
الكود:

Private Sub Command1_Click()
On Error GoTo 1
Dim Form1Date As Date
Dim Form2Date As Date
Form1Date = Text1.Text
Form2Date = Text2.Text
Text3.Text = DateDiff("d", Text1.Text, Text2.Text) & " يوم"
Exit Sub
1 MsgBox ("من فضلك أدخل التاريخ بشكل صحيح")
End Sub

-------------------------------------------------------------------------------------------------
avatar
أيمن الإبراهيم
........
........

تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 397
التقيم : 0
الدولة : سوريا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى