حساب الفرق بين تاريخين

ستحتاج هنا الى حساب تاريخ الانتهاء فقط . أي أنك ستقارن تاريخ انتهاء الفترة بتاريخ اليوم ويكون ذلك بالطريقة التالية :

 If DateDiff("d", Text1.Text, Date) > 0 Then
	MsgBox  "انتهت المدة من "  &  DateDiff("d", Text1.Text, Date)
End If

وظيفة هذا الكود هو مقارنة عدد التاريخ الموجود بالتكست 1 بتاريخ الكمبيوتر والذي من المفروض ان يكون تاريخ اليوم فإذا كان الناتج أكبر من صفر إذا معنى ذلك ان المدة انتهت فيعطي رسالى بأن المدة انتهت مع عدد الايام .

تحياتي

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

اخي العزيز من خلال مافهمت منك انك تريد عمل طريقة للتاكد من ان سلع ما قد انتهاء صلاحيتها

فانظر للمثال المرفق حاولت فيه تلخيص ذلك

والسلام عليكم

date.zip

شكرا على المساعده

لكن أخ omani

كيف ممكن استخدم الكود اذا كان عندي اكثر من تاريخ اريد التاكد من انتهاء مدتهم

شكرا اخ Mukthar :)

تفضل اخي المثال عسى ان يكون المطلوب

تحياتي

End_Date.rar

الف شكرا لك يا اخ omani

اخي العزيز

omani

Mukthar ممكن تعدلون لي بالمثال اللذي ارفقتوا جزاكم الله خير .. اريد ان يعطيني البرنامج رسالة تنبيه قبل انتهاء الصلاحية بايام انا احددها كمستخدم

شكرا لكم

والسلام..