Microsoft Access è un software di gestione di database che è incluso nella suite Microsoft Office . Access utilizza una forma del linguaggio di programmazione Visual Basic per utilizzare alcune funzioni tra cui data e ora. Il valore per il tempo e data è come una frazione di 24 ore. La formattazione della data per periodi di tempo che esistono più di più di 24 ore richiedono l'utilizzo di una funzione definita dall'utente che compensa questa limitazione . Istruzioni
1

Avviare l' applicazione di Microsoft Access. Fare clic sul menu "File" e selezionare "Apri".
2

individuare il documento che si desidera aprire . Fare clic una volta, e fare clic sul pulsante "Apri" .
3

Individuare la finestra del database e fare clic sul menu "Moduli " . Selezionare "Nuovo ". Digitare le "Opzioni esplicita" frase nella sezione " Dichiarazioni ", se non è già presente
4 Tipo

o copiare e incollare il " tempo trascorso " procedura seguente nella finestra " dichiarazioni " : .

' -------------------------------------------- ----------------------

' Questa funzione calcola il tempo trascorso tra due valori e quindi

' formatta i risultati . in quattro modi diversi

'

' la funzione accetta argomenti di intervallo come il seguente :

'

' # 5/12/95 6 : 12:00 # - # 5/11/95 10:00:00 #

'

'

'

' [ Fine ] - [Start Time]

' -------------------------------------- ----------------------------

Funzione ElapsedTime (Intervallo ) per

Dim x

x = Int ( CSng ( Intervallo * 24 * 3600 ) ) & " secondi "

Debug.Print x

x = Int ( CSng ( Intervallo * 24 * 60 ) ) & " : " & Format (Intervallo , "ss" ) _

& " minuti: secondi"

Debug.Print x

x = Int ( CSng ( Intervallo * 24 ) ) & " : " & Format (Intervallo , "nn : ss" ) _

& "ore: minuti : secondi"

Debug.Print x

x = int ( CSng ( intervallo) ) & " giorni " & Format (Intervallo , " HH " ) _

& "ore" & Format (Intervallo , "nn" ) & " minuti" & _
< p > Format ( Intervallo , "ss " ) & " secondi "

Debug.Print x

End Function
5

Tipo seguendo la funzione " Tempo trascorso " chiamata nella finestra " immediata " e premere il tasto "Enter" :

? ElapsedTime ( # 6/1/1999 8:23:00 # - # 6/1/1999 8:12:12 # ) per

Cambia le date per le date che si desidera calcolare
< br . > 6

Fare clic sul menu "File" , e immettere un nome per il modulo , come ad esempio " Elapsed_Time . " Selezionare " Salva ".
7

Fare clic sul menu "Debug" e selezionare "Compila ". Salvare il file e fare clic su " Ritorna al database".