Setting Daily Events

Setting Daily Events

I want to kick off a function once a day (for examle, at midnight). The timer seems a very inefficient way to do this. Is there any way of raising an event once a day to do this?

The Timer control only supports an Interval property up to 65535, which is about 65 seconds. You can use this, in combination with some extra code to start a program at midnight, let’s say. Here’s an example, assuming you have a timer control named tmrDaily:

Private Sub tmrDaily_Timer()   If Time >= #0:00# And datLastRun < Date Then      ' run your code here      datLastRun = Date   End IfEnd Sub

You’ll also need to maintain some sort of status, so that you only run the job once during the day. In this case, datLastRun is a variable defined outside this procedure as a Variant (for holding date/time values).

See also  How to Avoid Money Transfer Scams  

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist