اختيار تاريخ لحدوث أمر

هناك أداة جيدة لتحديد التاريخ ألا وهي :

Microsoft Calendar Control 6.0

ولجعل البرنامج يستجيب عند حلول الوقت أو التاريخ يجب أن تضع Timer خلال كل دقيقة مثلاً

بأن تجعل قيمة الخاصية Interval =60000 لأن الثانية = 1000 ، يقوم بفحص التاريخ فإذا وجده مساوياً للذي حدده المستخدم فإنه يعرض الإجراء الذي توده

هذه هي الفكرة ...

السلام عليكم أخي الكريم

والله لم أفهم السؤال بالزبط لكن الواضح أنك تريد كود المقارنة بين الوقت الحالي والوقت الذي تم أختياره من المستخدم .

أولا لو عندنا أثنان تكست بوكس الاول أسمه Text1 والثاني text2 الاول فيه الساعات والثاني فيه الدقائق .

عند تعبئة المربعين نجمعهما مع بعض مثال

ضع المتغير التالي في العام للمشروع

dim H_M as string

ضع الكود التالي في حدث التشغيل

Private sub command1_click()

'نجمع المربع الساعات مع مربع الدقائق

H_M = text1.text & ":" & text2.text

End sub

ضع الكود التالي في مؤقت وضع خاصية المؤقت Interval على 1000

dim H_Tnow as string

dim Answer as String

نجمع الوقت الحالي من الساعات فقط والدقائق فقط وليس الثواني لأنها لا تهمنا هنا

H_Tnow = Hour(now) & ":" & minute(now)

'هنا المقارنة بينهما

Answer = iIF(H_M = H_Tnow, True, false)

'أذا True يعني الوقتان متطابقان في هذه اللحظة

If Answer = True then

'الوقتان متطابقان

msgbox "All right bingo"

end if

هذا ولم أجرب الكود لأني في كافي نت

أما الزيادة والنقصان فهي سهلة فقط ضع زر الزيادة وزر للنقصان

أما الزياة

Number = Number + 1

أما النقصان

Number = Number - 1

وأذا كانت القيمة أكثر من 12 يعني عدد الساعات نعمل التالي

نضع شرط لذلك كالتالي

if Number > 12 then

text1.text = 12

end if

هذا والله أعلم لا يخلوا الكود أعتقد من الأخطاء ولكن عليك أن تجرب وتتقن أنت بنفسك ذلك