هل تريد إيقاف عمل البرنامج لمدة زمنية معينة

التفاصيل

الزيارات: 4166

هذا الكود يقوم بإيقافه لمدة دقيقة

كود:

---

startime = Format(Now, "hh:mm:ss AMPM")


endtime = DateAdd("s", 60, startime)




While startime < Format(endtime, "hh:mm:ss AMPM")


startime = Format(Now, "hh:mm:ss AMPM")


Wend

---

• < السابق
• التالي >