La función VBA Second devuelve un número entero correspondiente a los segundos de la fecha u hora especificada.
Second(fecha_hora)
Usando la función Second para obtener la información de tiempo relevante:
Sub SecondExample1() myHour = #6:36:45 PM# MsgBox Second(myHour) 'Devoluciones: 45 End Sub
O por fecha y hora (para el mismo resultado):
Sub SecondExample2() myDate = #10/31/2020 6:36:45 PM# MsgBox Second(myDate) 'Devoluciones: 45 End Sub
Esta función también acepta una hora o fecha con hora en formato de texto:
Sub SecondExample3() myDate = "31/10/2020 18:36:45" MsgBox Second(myDate) 'Devoluciones: 45 End Sub