Функция VBA Second возвращает целое число, соответствующее секундам указанной даты или времени.
Second(дата_час)
Использование функции Second для получения соответствующей информации о времени:
Sub exemple()
monHeure = #6:36:45 PM#
MsgBox Second(monHeure) 'Возвращает: 45
End Sub
Или по дате и времени (для одинакового результата):
Sub exemple()
maDate = #10/31/2020 6:36:45 PM#
MsgBox Second(maDate) 'Возвращает: 45
End Sub
Эта функция также принимает даты и время в текстовом формате:
Sub exemple()
maDate = "31/10/2020 18:36:45"
MsgBox Second(maDate) 'Возвращает: 45
End Sub