Second Fractions

[Guest]

Hello!
I have a procedure that includes a 1 second wait period. I've been doing:
application.wait vba.now + vba.timeserial(0,0,1) and its been working fine.
I want the wait period to last HALF a second (or some other fraction). Is it
posible?
If so, how?
Best regards and thanks in advance,
Albert C

 

[Rick Rothstein \(MVP - VB\)]

Add this API function declaration to General/Declarations section of your
code window...

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

and then execute this statement to delay 1/2 second....

Sleep 500

For an example....

Sub test()
Debug.Print Timer
Sleep 500
Debug.Print Timer
End Sub

The two printed values should differ by 1/2 second.

Rick

 

[Guest]

EXCELENT!!!!!
Thank you Sir!!!!!

Add this API function declaration to General/Declarations section of your
code window...

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

and then execute this statement to delay 1/2 second....

Sleep 500

For an example....

Sub test()
Debug.Print Timer
Sleep 500
Debug.Print Timer
End Sub

The two printed values should differ by 1/2 second.

Rick