Second (dates) 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