Microsoft Access är databas programvara som ingår i Microsoft Office-paketet . Access använder en form av Visual Basic programmeringsspråk för att utnyttja vissa funktioner inklusive datum och tid . Värdet för tid och datum är som en fraktion av 24 timmar. Formatera datum för tidsperioder som finns under mer än 24 timmar kräver att du använder en användardefinierad funktion som kompenserar för denna begränsning . Instruktioner
1
Starta Microsoft Access applikation . Klicka på " Arkiv " -menyn och välj " Öppna".
2
Leta reda på dokumentet som du vill öppna . Klicka på den en gång , och klicka på " Öppna" .
3
Leta databasen fönstret , och klicka på " Modules " -menyn . Välj " Nytt . " Skriv frasen " Alternativ Explicit " i " förklaringarna " avsnittet om den inte redan finns där
4
Skriv eller kopiera och klistra in följande " Förfluten tid " proceduren i " förklaringarna " fönstret : .
" -------------------------------------------- ----------------------
' den här funktionen beräknar hur lång tid mellan två värden och sedan
" format resultatet . på fyra olika sätt
"
' funktionen accepterar intervall argument såsom följande :
"
' # 5/12/95 6 : 00:00 AM # - # 5/11/95 10:00:00 #
"
"
"
" [ Sluttid ] - [ Starttid ]
" -------------------------------------- ----------------------------
Funktion ElapsedTime ( Intervall ) katalog
Dim x
x = Int ( CSng ( Intervall * 24 * 3600 ) ) & " Seconds "
Debug.Print x
x = Int ( CSng ( Intervall * 24 * 60 ) ) & " : " & Format ( Intervall , " ss " ) _
& " minuter : sekunder "
Debug.Print x
x = Int ( CSng ( Intervall * 24 ) ) & " : " & Format ( Intervall , " nn : ss " ) _
& " Timmar : minuter : sekunder "
Debug.Print x
x = Int ( CSng ( Intervall ) ) & " dagar " & Format ( Intervall , " hh " ) _
& " Hours " & Format ( Intervall , " nn " ) & " Minutes " & _
Format ( Intervall , " ss " ) & " Seconds "
Debug.Print x
End Function
5
Type efter " förfluten tid " funktionen ringa in " Omedelbar " fönstret och tryck på " Enter" :
? ElapsedTime ( # 1999/06/01 08:23:00 # - # 1999/06/01 08:12:12 # ) katalog
ändra datum för de datum du vill beräkna
6
Klicka på " Arkiv " -menyn och skriv in ett namn för din modul , t.ex. " Elapsed_Time . " Välj " Spara ".
7
Klicka på " Debug " -menyn och välj " Kompilera . " Spara filen , och klicka på " Återgå till databas . " Addera
