VBA/Excel/Access/Word/Date Functions/Second

Second(time) returns A Variant/Integer between 0 and 59, inclusive, representing the second for time

 
Sub dateDemo11()
   Debug.Print Second(Date)
End Sub