La función Second en VBA se utiliza para obtener los segundos de un valor de fecha y hora dado. Retorna un entero entre 0 y 59 que representa los segundos de la parte de tiempo de un valor de fecha/hora.

Ejemplo

Sub EjemploSecond()
    Dim tiempo As Date
    Dim segundos As Integer
    
    ' Asignar un valor de fecha y tiempo a la variable tiempo
    tiempo = Now() ' Now() retorna la fecha y hora actual
    
    ' Obtener los segundos de la variable tiempo
    segundos = Second(tiempo)
    
    ' Mostrar los segundos en un cuadro de mensaje
    MsgBox "Los segundos actuales son: " & segundos
End Sub

En el ejemplo anterior:

• Declaramos dos variables: una variable de tipo Date llamada tiempo para contener un valor de fecha y hora, y una variable de tipo Integer llamada segundos para contener el resultado de la función Second.
• Asignamos el valor de la fecha y hora actual a la variable tiempo utilizando la función Now.
• Llamamos a la función Second y pasamos la variable tiempo como argumento. Esta función retorna el valor de los segundos de tiempo, y asignamos ese valor a la variable segundos.
• Finalmente, mostramos un cuadro de mensaje (MsgBox) con los segundos actuales.

Puedes utilizar la función Second con cualquier variable o valor de fecha y hora en VBA, no solo con la fecha y hora actuales.

Recuerda que para que el código funcione, debe estar en un módulo dentro de un proyecto de VBA, que podría ser parte de una aplicación como Microsoft Excel, Access, o cualquier otra que soporte la programación en VBA.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Access

Power BI

Ayúdanos a hacer crecer el proyecto