اخواني الاعزاء ..
لقد رغبت في عمل فرق ما بين تاريخين وناتجهما عدداً..
مع العلم بانه قد يكون التاريخ الاول اصغر من التاريخ الثاني والذي ينتج عنه قيمة عددية سالبة ..
لذا افيدونا بارك لكم الله..
الفرق عددياً ما بين تاريخين
مغلق
تحية:
الدالة المطلوبة هنا هي
DateDiff
مثل
Text3.Text = Abs(DateDiff("d", Text1.Text, Text2.Text))هذا الكود يستخرج الفارق بين تاريخين باليوم
ومرفق مثال يوضح طريقة الاستخدام
مشكور مأجور يا أخي الكريم الحل كما هو في فكري
ويوجد لدى طلب أخر في هذه العملية الحسابية انه اذا كان قد تعدى من text2 والذي
سيكون يتغذى من SYStime الموجود على الجهاز مده قدرها 10 ايام يقوم بعمل رسالة تنبيه..
أخى الفاضل
نفس الإجابة وستستخدمها كما تشاء
وتغير المعاملات لتعطيك ما تشاء
لو بحثت فى التعليمات لهذه الدالة ستستفيد كثيرا
If DateDiff("d", Text1.Text, Text2.Text)>10 Then
MsgBox "الوقت تعدى العشرة أيام"
End If
عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :
( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )
رواه الطبراني في الكبير
لو انت عايز ياخذ التاريخ الثاني من الجهاز
if Abs(DateDiff("d", Text1.Text, Date))>10 then
Msgbox "تنبيه"
else
Text3.Text = Abs(DateDiff("d", Text1.Text, Date))
endifضبط معاي حرفياً مشكور ..
طيب اذا انا كنت عايز اعرف ايها الاكبر برسالة معينة كيف استطيع ان اعمل ذلك..
هذا الموضوع مغلق.