[hannileo]

السلام عليكم ورحمة الله وبركاته 
اخواني عندي اداتين Dtpiker  اداة التاريخ 

عند تحديد التاريخ يقوم بحساب الايام والاشهر والسنوات ووضعها النتائج في text 1 , text2 , text3

لكن اريد عند حساب هذه التواريخ ان لايقوم بتجاوز السنة 

يعني عدم الخروج عن 365 يوم 

كود :

text1.text = DateDiff("d", dtFrom.value, dtTo.value)

يعني اريد ان لايقوم باضافة اكثر من سنة وعند تجربة اضافة اكتر من سنة لايقبل 


وشكرا لكم

[Ahmed_Mansoor]

وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , إستخدم جملة الشرط كالتالي :

PHP كود :

If DateDiff("d", dtFrom.Value, dtTo.Value) > 365 Then
   MsgBox "لقد تجاوزت السنة", vbExclamation, "تنبيه"
   Exit Sub
End If 


[hannileo]

(23-10-19, 10:46 PM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , إستخدم جملة الشرط كالتالي :

PHP كود :

If DateDiff("d", dtFrom.Value, dtTo.Value) > 365 Then
   MsgBox "لقد تجاوزت السنة", vbExclamation, "تنبيه"
   Exit Sub
End If 


بارك الله بك وبجهودك استاذ احمد 


وجعلها في ميزان حسناتك 

شكرا لك