Timer
<< Click to Display Table of Contents >> Navigation: ThinBASIC Core Language > BuiltIn Functions > Numeric functions > Timer |
Description
Return the number of seconds that have elapsed since midnight.
Syntax
n = Timer
Returns
Number
Parameters
Name |
Type |
Optional |
Meaning |
Remarks
Restrictions
See also
HiResTimer_Init, HiResTimer_Get, HiResTimer_Delta
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