How to do program "up time"??

Hi all...

i sort of managed to let the program tell the user how long has it been runnning...

BUT, i need it to be more accurate down to years, months, days too.... currently... i can only do the time...

here it goes:...
** note StartUpTIme is a global variable declared as date..

Private Sub Form_Load()
'Start to count server online time
StartUpTime = Now()
End Sub

Private Sub CommandUpTime_Click()
dim uptime as date
uptime= "Server has been up for" _
& ", " & Format(Hour(Now() - StartUpTime), "0") & " Hours" _
& ", " & Format(Minute(Now() - StartUpTime), "0") & " Minutes" _
& ", " & Format(Second(Now() - StartUpTime), "00") & " Seconds"

msgbox uptime
End Sub



can some one help me????

you'd have to keep a running total of all time running. when they close the program you'd have to save that amount of time. probably best to store it as the number of seconds that way you can easily figure out years and days.

i dont need to keep (save) the time when they quit..

i just want to know how to track the "up-time" of the program when it is active....

you expect the up-time to go for years? you'll probably want to look into the DateDiff function.

also the code for your command click is off. you declare a date variable and then store a string in it.

no no no.....

i dont expect it to go to years...
;p

just days will do.. (i expect).....
and about your string into a date format...

i dont quite get it....