Time Counter

[Prav]

Hi, I have a VBA code running a set of queries. How can I add a time
ticker/counter - Day, Hours, Minutes and Seconds starting like Day: 0 Hours:0
Minutes: 0 Seconds: 0. Cheers

 

[Arvin Meyer [MVP]]

Hi, I have a VBA code running a set of queries. How can I add a time
ticker/counter - Day, Hours, Minutes and Seconds starting like Day: 0
Hours:0
Minutes: 0 Seconds: 0. Cheers

Here's some code I wrote to countdown to the millenium. Put a label on your
form, put this code in the form's Timer event, and set the TimerInterval to
1000:

Private Sub Form_Timer()
Dim dtNow As Date
Dim strOut As String
Dim lngTmp As Long
Dim lngTmp2 As Long
Dim lngTmp3 As Long
Dim lngTmp4 As Long
Const con2000 As Date = #1/1/2000#

dtNow = Now
lngTmp = DateDiff("s", dtNow, con2000)
lngTmp2 = CLng(lngTmp / 86400)
lngTmp3 = lngTmp2 Mod 24
lngTmp4 = (lngTmp3) Mod 60
'strOut = lngTmp2 & " days " & lngTmp3 & " hours "
'strOut = strOut & " left until the Millenium!!"
Me.lbl2000.Caption = CStr(Int(con2000 - dtNow)) & IIf(con2000 - dtNow > 1,
" days ", " day ") & Format$(con2000 - dtNow, "hh:nn:ss") 'strOut
End Sub

 

[Prav]

How can i set the time as 0:0:0:0, then when i run the code the counter starts.

 

[Arvin Meyer [MVP]]

I have a stopwatch demo that will keep track of the time, but it's not
designed to keep track of anything more than hours. I suspect that you could
add days without too much trouble:

http://www.datastrat.com/Download/StopWatch2K.zip
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com