Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Access . Kliknite na menu " Súbor " a zvoľte " Otvoriť " .
2
Vyhľadajte dokument , ktorý chcete otvoriť . Kliknite na neho raz , a kliknite na tlačidlo " Otvoriť " .
3
Vyhľadajte okno databázy a kliknite na ponuku " moduly " . Vyberte " Nový . " Zadajte frázu " Možnosti explicitné " v sekcii " deklaráciou " , ak to už nie je
4
Zadajte alebo skopírujte a vložte nasledujúci postup " Uplynulý čas " do okna " deklaráciou " : .
" -------------------------------------------- ----------------------
' Táto funkcia počíta uplynulý čas medzi dvoma hodnotami a potom
' sformátuje výsledok . štyrmi rôznymi spôsobmi
"
' Funkcia prijíma intervalové argumenty , ako sú nasledujúce :
"
" # 5.12.95 6 : 00:00 # - # 11/05/95 22:00:00 #
"
"
"
" [ Koniec ] - [ Start Time ]
" -------------------------------------- ----------------------------
Funkcia ElapsedTime ( Interval )
Dim x
x = Int ( CSng ( Interval * 24 * 3600 ) ) & " Seconds "
Debug.Print x
x = Int ( CSng ( Interval * 24 * 60 ) ) a " : " & Format ( Interval , " ss " ) _
a " Minúty : Sekundy "
Debug.Print x
x = Int ( CSng ( Interval * 24 ) ) & " : " & Format ( Interval , " nn : ss " ) _
a " Hodiny : Minúty : Sekundy "
Debug.Print x
x = int ( CSng ( Interval ) ) & " dní " & Format ( Interval , " hh " ) _
a " čas" a Format ( Interval , " nn " ) a " Minutes " & _
Format ( Interval , " ss " ) & " Seconds "
Debug.Print x
End Function
5
Typ nasledujúce funkcie " Uplynulý čas " volania do okna "okamžité " a stlačte " Enter " :
? ElapsedTime ( # 06.01.1999 20:23:00 # - # 06.01.1999 08:12:12 # ) .
Zmena dátumu do dátumu , ktoré chcete vypočítať
6
Kliknite na menu " Súbor " a zadajte názov pre modul , ako je napríklad " Elapsed_Time . " Zvoľte " Uložiť " .
7
Kliknite na menu " Debug " a zvoľte " Compile . " Uložte súbor a kliknite na " Návrat do databázy . "
Copyright © počítačové znalosti Všetky práva vyhradené