الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ممكن كود يقوم بعملية انذار في حالة اقتراب تاريخ انتهاء صلاحية مواد ما

بدأه المدمر007 في 11 مارس 2010 · 2 رد · 691 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

صبحكم الله بكل خير ... ومساءكم الله دوماً بالخير اينما كنتم

أحب بداية أن انوه بأن صفحة البحث في المنتدى غير دقيقة، وتعطي نتائج تمس مواضيع وبرمجيات خارج نطاق البحث غالباً

أرجو من القائمين على المنتدى، حل هالمشكلة..

كل مافي الموضوع لدي نافذة أقوم بإدخال بعض المواد والعناصر القابلة لإنتهاء صلاحيتها

واستخدم أداة DTPicker في تحديد تاريخ الإنتهاء

المطلوب كود يقوم بإعطائي اما رسالة تبلغني بأن المادة الفلانية شارفت على انتهاء صلاحيتها قبل تاريخ الإنتهاء بشهر

أو تقوم بتحويل المواد التي ستنتهي بعد شهر في نافذة فليكس جريد مثلاً أو أيها الأنسب والأسهل.

لكم مني اجمل التحية

#2

السلام عليكم 

Dim date1
Dim date2
Dim crudate
date1 = DateAdd("d", 30, DTPicker1.Value)

crudate = Date
date3 = DateDiff("d", date1, crudate)
If Val(date3) <= 0 Then
MsgBox "Date Exp."
End If

حيث DTP1 هي تاريخ المادة وتسطيع ادخالها من الجدول الخاص بك

نضيف اليها 30 يوم

ندخل التاريخ الحالي ونستخرج الفرق بالايام مع تاريخ المادة

تستطيع وضع الكود في Timer او اي اجراء

بالتوفيق

#3

مرحباً أخي { أحمد }

هل هناك خطأ بالكود .. ربما Date3 يفترض أن يكون Date2 اليس كذلك ؟!!

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…