(09-10-22, 09:25 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

فيك تحتال ع الامر بكود بسيط باستخدام الدالة(Mod)
إن كنت تريد كل يومين سيفتح في اليوم الزوجي :

كود :

       If Now.Day.ToString("d") Mod 2 = 0 Then
           Form2.Show()
       End If

وإن كنت تريد كل ثلاث أيام تكتب :

كود :

       If Now.Day.ToString("d") Mod 3 = 0 Then
           Form2.Show()
       End If

وهكذا  ...

(10-10-22, 06:44 PM)Taha Okla كتب : عندما تعجز عن التخيل قم بإضافة أدوات تجعل خيالك مرئياً وقم بالتنفيذ عليها

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

مثلا ً قم بفتح مشروع جديد ثم بإضافة (Button1 + ListBox1)
وجرب الكود التالي :

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim d1 As DateTime = Now
       Dim d2 As DateTime = d1.AddDays(2).AddHours(3)
       ListBox1.Items.Add(d1)
       ListBox1.Items.Add(d2)
       If Now >= d2 Then ListBox1.Items.Add(d2)
   End Sub

هذا الكود ليس الحل ولكن بداية فكرة
d1  : هي الوقت الحالي عند تنفيذ كودك وأكتشف أن كلمة المرور صحيحة.
d2 :  هي الوقت الذي تريد فيه تنفيذ كودك إن تحقق شرطك. (يعني فيك تضيف على الوقت الحالي ما تريد من أيام وساعات لتولد تاريخ ووقت جديد).

- العمليات على الـ ListBox  تريك نواتج ما تقوم به من تعديلات قبل وبعد التنفيذ.
- الشرط الموجود في الكود : شرط للتحقق هل الوقت الحالي (بعد يومين، شعد شهر، بعد سنة) أكبر من الوقت الذي تم توليده ببرنامجك.
- تنفيذ هذا الشرط يعتمد على نتيجة الشرط (فإن تجاوز التاريخ المطلوب) نفذ الكود.
=======
- المطلوب منك ، تخزين الوقت الجديد(d2) في قاعدة بيانات أو في أي مكان في الجهاز ... إلخ.
- إن كان برنامجك يشغل كلما احتاج إليه العميل :
     --عند إقلاع برنامجك في المرة القادمة(في حدث الاقلاع Load) يتحقق من وجود الملف، يتحقق من التاريخ والوقت داخله، وينفذ عليه الشرط الموجود هنا بعد أن تعدله لما يناسب فكرتك، فإن تحقق الشرط نفذ الكود.
     -- إن كان برنامجك يبقى قيد التشغيل في الخلفية، فضع كود التحقق في تايمر يقوم بالتحقق من لأمر كل عدة ثواني(أو ساعات) كما تريد وينفذ عندما يتحقق الشرط..
=======

وفقك الله ..

(10-10-22, 08:08 PM)anes كتب :

تفظل عملت لك مثال 

غير فقط الدقيقة بما تريد 

انا عملت دقيقة للتجريب 

مثلا هذا كود يومان

كود :

if (DateAndTime.DateDiff(DateInterval.Day, Settings.Default.VIPVAL, DateAndTime.Now) >= 2)