Description

 

Return the number of seconds that have elapsed since midnight.

 

Syntax

 

n = TIMER

 

Returns

 

Number

 

Parameters

 

 

Remarks

 

Restrictions

 

See also

 

Numeric Handling,

 

Examples

 

Thanks to Abraxas for the following script example

' Usage of the DATE$ Instruction example

' Usage of the TIME$ Instruction example

' Usage of the TIMER Instruction example

 

Dim Year  As String

Dim Month As String

Dim Day   As String 

Dim sMsg  As String

 

' I dont know if this changes depending on your system setup ???

Year  = mid$(Date$, 7, 4) ' Extract the year from the returned string

Month = mid$(Date$, 1, 2) ' Extract the Month from the returned string 

Day   = mid$(Date$, 4, 2) ' Extract the Day from the returned string

 

sMsg += " Current Year "  & Year  & $CRLF

sMsg += " Current Month " & Month & $CRLF

sMsg += " Current Day "   & Day   & $CRLF

 

sMsg += " Current Time " & TIME$ & $CRLF ' returns the time as a string

sMsg += " Seconds Since Midnight " & TIMER & $CRLF ' returns the second as a number

 

MSGBOX 0, sMsg