VBA/Excel/Access/Word/Date Functions/Second
Материал из VB Эксперт
Second(time) returns A Variant/Integer between 0 and 59, inclusive, representing the second for time
Sub dateDemo11()
Debug.Print Second(Date)
End Sub