+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : حساب الفرق بين اداتين Dtpiker (/showthread.php?tid=31814)
حساب الفرق بين اداتين Dtpiker - hannileo - 21-10-19
السلام عليكم ورحمة الله وبركاته
اخواني عندي اداتين Dtpiker اداة التاريخ
عند تحديد التاريخ يقوم بحساب الايام والاشهر والسنوات ووضعها النتائج في text 1 , text2 , text3
لكن اريد عند حساب هذه التواريخ ان لايقوم بتجاوز السنة
يعني عدم الخروج عن 365 يوم
كود :
text1.text = DateDiff("d", dtFrom.value, dtTo.value)يعني اريد ان لايقوم باضافة اكثر من سنة وعند تجربة اضافة اكتر من سنة لايقبل
وشكرا لكم
RE: حساب الفرق بين اداتين Dtpiker - Ahmed_Mansoor - 23-10-19
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , إستخدم جملة الشرط كالتالي :
PHP كود :
If DateDiff("d", dtFrom.Value, dtTo.Value) > 365 Then
MsgBox "لقد تجاوزت السنة", vbExclamation, "تنبيه"
Exit Sub
End If
RE: حساب الفرق بين اداتين Dtpiker - hannileo - 26-10-19
(23-10-19, 10:46 PM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , إستخدم جملة الشرط كالتالي :
PHP كود :
If DateDiff("d", dtFrom.Value, dtTo.Value) > 365 Then
MsgBox "لقد تجاوزت السنة", vbExclamation, "تنبيه"
Exit Sub
End If
بارك الله بك وبجهودك استاذ احمد
وجعلها في ميزان حسناتك
شكرا لك