This app has been running for (time) =HOW TO DO?!!=

[czaries]

How do I display a live clock, updated every second, that shows how long you have been running the current application? Come on guys, I know it's possible...

------------------
Webmaster Czaries
http://www1.50megs.com/css

[JeffSM]

I don't understood very well, you want put this code in your form/mdi or in a clock out the app, like allways visible?

Jefferson

[MartinLiss]

Put a timer on the form and set it's interval to 100. Then do the following:Private Sub Timer1_Timer()

Static m_dTotal As Double
Static m_dStart As Double
Static m_dCurrent As Double
Dim x As Integer

m_dStart = Timer ' Set start time.

Do
m_dCurrent = Timer - m_dStart
x = x + 1
If x = 500 Then
Text1.Text = "Working for " & HoursAndMinutes(m_dTotal + m_dCurrent)
x = 0
End If
DoEvents ' Yield to other processes.
Loop

End Sub


------------------
Marty

[MartinLiss]

I forgot to include the HoursAndMinutes routine. Here it is.

Public Function HoursAndMinutes(dSeconds) As String

HoursAndMinutes = Format(dSeconds \ 3600, "00") & ":" _
& Format(((dSeconds \ 60) Mod 60), "00") & ":" _
& Format(dSeconds Mod 60, "00")

End Function


------------------
Marty

[czaries]

Thank you guys, and I did mean display it on a form.

------------------
Webmaster Czaries
http://www1.50megs.com/css

[czaries]

Thank You for the correction. I was wondering why it kept giving me an error...

------------------
Webmaster Czaries
http://www1.50megs.com/css