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" & _
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".
software © www.354353.com