Функция 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