diff= DateDiff("d", "22/1/2001", "22/1/2002")هيدا الكود بيحدد الفرق بين تاريخين اوكيه سؤالي
بفرض عملت تطبيق فيه textbox1
وفيه textbox2
وفيه اخر ثالث
عند ادخال تاريخ مثلا 25/4/2001
في ال textbox1
وتاريخ في التكست بوكس 2
والنقر على زر command1
يظهر الفرق بالايام في التكست بوكس الاخير
ملاحظة: ان تم الادخال مثلا بالصيغة 25-4-2001 يظهر تنبيه
وايضا لا يسمح ادخال غير الارقام
ارجو ان اجد الكود لهذا التطبيق
والف الف شكر على المساعدة باستفساراتي
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
أخي العزيز (f) Nop (f) بعد التحية:
بالنسبة لإجابة سؤالك السابق - وأرجو أن أكون فهمتك صح - إليك الكود التالي، علما بأنه لن يفرق مابين 1/1/2002 وبين 1-1-2002 ، ولكنه لا يسمح بدخول تاريخ خاطئ:
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وإليك تحياتي
المخلص
عبد الله
الله يعطيك الف عافية اخوي ان شاء الله يكون المطلوب
الف شكر مرة اخرى :D
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
هذا الموضوع مغلق.