format GetTickTime

[MidgetsBro]

I have this code in a module:

Public Declare Function GetTickCount Lib "kernel32" () As Long
Dim lRtrn As Long

and this in a timer on the form:

lRtrn = GetTickCount
Label1.Caption = lRtrn

how can I format it to look like time? ie hh:mm:ss? I've tried the format(lRtrn, "hh:mm:ss"), but it says there is an overflow. What can I do to format it?

Thanks

mm = month
nn = minutes

format(lRtrn, "hh:nn:ss")

[MidgetsBro]

I still get an overflow. Is there a function that changes a number into time format? (hh:nn:ss). The number is counting up in milliseconds. The format of the number is below:

458962
| | |_____ milliseconds
| |_______ seconds
|_________ minutes

The only problem with this is that when the seconds get to 60 it goes to 61 instead of adding 1 to the minutes and going back to zero. Is there a way to format this? Thanks.

[Ramandeep]

To get minutes you devide it by 60000 (1000 = 1sec). You can then devide that further to get min & sec or somthing.

[HeSaidJoe]

Description & Usage
GetTickCount determines how much time has elapsed since Windows was last started. The time is measured in milliseconds, although the actual resolution of the function's output depends on that of the system timer itself. Therefore, it may not be perfectly accurate to the millisecond. Because of the limitations of the 32-bit integer data type, the reported elapsed time wraps back to zero after about 49.7 days of continuous operation.

dim x,y,z
x = GetTickCount / 1000  ' = Seconds
y = x / 60  '= minuites
z = y / 60  '=hours

What are you trying to accomplish?

[MidgetsBro]

I'm learning how to use visual basic, and saw a post that had the GetTickCount call in it. I just wanted to explore it so I made a program that runs next to the system clock that tells how long the computer has been up. When it gets to a certain time, I want a window to popup asking the user if they would like to reboot to refresh their resources. (cause in windows, it crashes if you leave it up too long.)

[gsc1ugs]

What does GetTickCount return number of millisecond from the 24 hour clock?

Is it possible to get todays date in seconds from this function.?

[MidgetsBro]

You can't get the date in seconds because it counts the amout of time that the computer has been running.

[kedaman]

You use Date$ function to return the current date, Time$ to return the current time, Now to return the current Datetime.
You can also use Gettickcount to add the extra milliseconds up to the datetime:

Now & "." & gettickcount mod 1000&

And also you can convert the gettickcount time to hh:mm:ss format by using timeserial:

Timeserial(0,0,Gettickcount\1000&) & "." & gettickcount mod 1000&

[gsc1ugs]

Could someone tellme where calls like this go?

Private Const REG_OPTION_NON_VOLATILE = 0
Private Const REG_SZ As Long = 1
Private Const REG_BINARY = 3
Private Const REG_DWORD As Long = 4

Private Const READ_CONTROL = &H20000
Private Const SYNCHRONIZE = &H100000
Private Const KEY_ALL_ACCESS As Long = &H3F
Private Const KEY_QUERY_VALUE As Long = &H1
Private Const KEY_ENUMERATE_SUB_KEYS As Long = &H8
Private Const KEY_NOTIFY As Long = &H10
Private Const KEY_READ = ((READ_CONTROL Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))

[Frans C]

Well, these aren't calls, but constants. Because they are defined as private, they should go in the general declaration section (just under Option Explicit would be fine) of the module that uses them.

[gsc1ugs]

Sussed it but thanks.