Howto make a 24 h timer

[André]

Hi there,
I'm going to build an exe server component that has to be up only once a month, eg the last day of the month.
On this day it will transfer files and write to a database. After it has finished it will have to wait until the next last day of the next month.
Makes any sense?

Well, I'm not sure on how to do this.
My guess is that my exe will need a timer but only respondig every 24 hours and then asking if it is the last day of the month. How do I build such a timer?
Is there another way to do this?

Another thing, if the server is restarted, I would like the exe to also start again.

Please help,

Cheers,

André

[HeSaidJoe]

Add a timer to your form Timer1

'this should work

Option Explicit

Public sDone As Boolean  'marker for the last day finished
sDone = False

Private Sub Form_Load()
    Timer1.Enabled = True
    Timer1.Interval = 60000 'approx 1 min.
End Sub

Private Sub Timer1_Timer()
'get last day of the mont
    Dim theLast
    theLast = Day(DateSerial(Year(Date), Month(Date) + 1, 0))

'check it against today and act accordingly
    If Format(Now, "dd") = theLast And sDone = False Then
        'do your file stuff
    'mark it as done to avoid doing it again
        sDone = True
     End If
     
'reset to false after monthend
    If Format(Now, "DD") + 1 > theLast Then sDone = False
End Sub

[André]

Thanx,
Since VB timer approx. can only handle 65 seconds I did'nt want to use it. You know every minute in a month.

I have found an API SetTimer, wich is a callback function that can callback as far as 23 days!!!

So now I can almost wait an entire month almost!

André

[HeSaidJoe]

true enough, and if you refreshed your system daily you wouldn't need a timer, you could just store the variable with SaveSettings and check against it each day as you open and if a match then do your stuff.

Later.