Microsoft Access es un software de gestión de base de datos que se incluye en la suite de Microsoft Office. Access utiliza una forma del lenguaje de programación Visual Basic para utilizar determinadas funciones, incluyendo la fecha y hora . El valor para la hora y la fecha es como una fracción de 24 horas . Formateo de la fecha por períodos de tiempo que existen desde hace más de 24 horas requieren el uso de una función definida por el usuario que compensa esta limitación. Instrucciones
1
Inicie la aplicación Microsoft Access. Haga clic en el menú " Archivo" y seleccione " Abrir".
2
Localizar documento que desea abrir . Haga clic en él una vez, y haga clic en el botón "Abrir" .
3
Localizar la ventana base de datos y haga clic en el menú " Módulos " . Seleccione " Nuevo". Escriba la frase "Opciones explícitos " en la sección " Declaraciones ", si no está ya allí
4
Escriba o copie y pegue el siguiente " Tiempo transcurrido " procedimiento en la ventana de " Declaraciones ": .
' -------------------------------------------- ----------------------
' Esta función calcula el tiempo transcurrido entre dos valores y luego
' da formato al resultado . de cuatro maneras diferentes
'
' la función acepta argumentos de intervalo como las siguientes :
'
' # 12/05/95 6 : 00:00 AM # - # 05/11/95 10:00:00 PM #
'
'
'
' [ Fin ] - [ Hora de inicio ]
' -------------------------------------- ----------------------------
Función ElapsedTime (Intervalo)
Dim x
x = Int ( CSng ( Intervalo * 24 * 3600) ) y " segundos "
Debug.Print x
x = Int ( CSng ( Intervalo * 24 * 60 ) ) y " :" & Format ( intervalo , "ss ") _
y " Minutos : Segundos "
Debug.Print x
x = Int ( CSng ( Intervalo * 24 ) ) & " :" & Format ( intervalo , "nn : ss ") _
y " horas: minutos: segundos "
Debug.Print x
x = Int ( CSng (Intervalo) ) & " días " & Format ( intervalo , "hh ") _
y " Horas " & Format ( intervalo , "nn ") y " Minutos " & _
< p> Format ( intervalo , "ss " ) & " segundos "
Debug.Print x
End Function
5
Tipo siguiendo la función " Tiempo transcurrido " poner en la ventana " Immediate " y pulse la tecla "Enter" :
? ElapsedTime (# 6/1/1999 8:23:00 PM # - # 6/1/1999 8:12:12 AM #)
Cambiar las fechas para las fechas que desea calcular
< br . > 6
Haga clic en el menú " archivo" y escriba un nombre para el módulo, como " Elapsed_Time . " Seleccione " Guardar ".
7
Haga clic en el menú " Debug" y seleccione " Compilar ". Guarde el archivo y haga clic en " Volver a la base de datos. "
