|
| |
| ||||||||||||||||||
Purpose
Returns an integer value that represents the seconds from any valid date expression.
Syntax
Second (DateExpression)
Example
Sub Main()
Dim d As Date
Dim secnum As Integer, minnum As Integer, hournum As Integer
d = Time
hournum = Hour (d)
minnum = Minute (d)
secnum = Second (d)
Print "The current hour is "; hournum
Print "The current minute is "; minnum
Print "The current second is "; secnum
End Sub
| ||