Contenido
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
VBA
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.