Hour (dates) Purpose Returns an integer (0-23) that represents the hour from any valid date expression. Syntax Hour (DateExpression) Example Sub Main()         ...         Dim secnum As Integer, minnum As Integer,         hournum As Integer         ...         secnum = Second(d)                 Print "The current second is "; secnum End Sub