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

الكود:


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

-------------------------------------------------------------------------------------------------