Michael Clease
28-05-2007, 00:09
' Usage of the DATE$ Instruction example
' Usage of the TIME$ Instruction example
' Usage of the TIMER Instruction example
'
' Written by Abraxas
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
' Usage of the TIME$ Instruction example
' Usage of the TIMER Instruction example
'
' Written by Abraxas
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