La fonction VBA Second renvoie un entier correspondant aux secondes de la date ou de l'heure spécifiée.
Second(date_heure)
Utilisation de la fonction Second pour obtenir les informations temporelles pertinentes :
Sub SecondExample1() myHour = #6:36:45 PM# MsgBox Second(myHour) 'Retours: 45 End Sub
Ou par date et heure (pour le même résultat) :
Sub SecondExample2() myDate = #10/31/2020 6:36:45 PM# MsgBox Second(myDate) 'Retours: 45 End Sub
Cette fonction accepte également une heure ou une date avec l'heure au format texte :
Sub SecondExample3() myDate = "31/10/2020 18:36:45" MsgBox Second(myDate) 'Retours: 45 End Sub