Countdown Clock

[Electron]

Hey!

I need some help with the code for a countdown clock. It's not for New Year's, it's for an event I am looking forward to in February 2000. I know I need to use the DateDiff function, but not sure on how to make it countdown the months, days, minutes, and probably seconds.

Any advice would be much appreciated!

Thanks,
Jeff

[Serge]

Drop a Timer control onto your form, change it's Interval property to 100. Also add a label to your form and use something like this:

Private mdatTimer As Date
Private Sub Form_Load()
    mdatTimer = #2/15/2000#  'Set your date here
End Sub
Private Sub Timer1_Timer()
    Dim sngSecs As Single
    sngSecs = DateDiff("s", Now, mdatTimer)
    Label1.Caption = Fix(((sngSecs / 60) / 60) / 24) & " Days, " & Fix((sngSecs / 60) / 60) Mod 24 & " Hours, " & Fix((sngSecs / 60)) Mod 60 & " Mins & " & (sngSecs Mod 60) & " Seconds  until: " & Format(mdatTimer, "mmmm dd, yyyy")
End Sub

Regards,

------------------

Serge

Software Developer
[email protected]
[email protected]
ICQ#: 51055819



[This message has been edited by Serge (edited 12-14-1999).]