• 0
Shadi Habbal

ممكن كود يحدد الفرق بين تاريخين

سؤال


diff= DateDiff("d", "22/1/2001", "22/1/2002")

هيدا الكود بيحدد الفرق بين تاريخين اوكيه سؤالي

بفرض عملت تطبيق فيه textbox1

وفيه textbox2

وفيه اخر ثالث

عند ادخال تاريخ مثلا 25/4/2001

في ال textbox1

وتاريخ في التكست بوكس 2

والنقر على زر command1

يظهر الفرق بالايام في التكست بوكس الاخير

ملاحظة: ان تم الادخال مثلا بالصيغة 25-4-2001 يظهر تنبيه

وايضا لا يسمح ادخال غير الارقام

ارجو ان اجد الكود لهذا التطبيق

والف الف شكر على المساعدة باستفساراتي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

3 إجابة على هذا السؤال .

  • 0

أخي العزيز (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

وإليك تحياتي

المخلص

عبد الله

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الله يعطيك الف عافية اخوي ان شاء الله يكون المطلوب

الف شكر مرة اخرى :D

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .