Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

Display in a message box the number of seconds passed since midnight

Sub timerDemo()     Dim seconds As Single     seconds = timer     MsgBox (seconds) End Sub