|
Microsoft Access est un logiciel de gestion de base de données qui est inclus dans la suite Microsoft Office. Access utilise une forme de langage de programmation Visual Basic pour utiliser certaines fonctions y compris la date et l'heure. La valeur de l' heure et la date est en fraction de 24 heures. Le formatage de la date pour des périodes de temps qui existent depuis plus de 24 heures vous obligent à utiliser une fonction définie par l'utilisateur qui compense cette limitation. Instructions
1 Lancez l'application Microsoft Access. Cliquez sur le menu «Fichier» , puis sélectionnez «Ouvrir».
2 Localiser le document que vous souhaitez ouvrir . Cliquez une fois dessus , puis cliquez sur le bouton "Ouvrir" .
3 Situer la fenêtre de base de données , puis cliquez sur le menu " Modules" . Sélectionnez «Nouveau». Tapez les mots clés "Options explicites » dans la section « Déclarations » si elle n'est pas déjà là
4 Type de ou copiez et collez la procédure suivante " écoulé du temps" dans la fenêtre "Déclarations ": .
' -------------------------------------------- ---------------------- de la recherche: ' Cette fonction calcule le temps écoulé entre deux valeurs et puis
' en forme le résultat . quatre manières différentes
'
« la fonction accepte des arguments d'intervalles tels que les suivants :
'
'# 6 12/05/95 : 00h00 # - # 11/05/95 22:00:00 #
'
'
'
' [ Heure de fin ] - [ Heure de début ]
' -------------------------------------- ----------------------------
Fonction ElapsedTime (Intervalle )
Dim x
x = Int ( CSng (Intervalle * 24 * 3600) ) & " secondes "
Debug.Print x
x = Int ( CSng (Intervalle * 24 * 60) ) et ":" & Format (Intervalle , "ss " ) _
& " minutes: secondes"
Debug.Print x
x = Int ( CSng (Intervalle * 24 ) ) & " :" & Format (Intervalle , "nn : ss" ) _
& "heures: minutes : secondes "
Debug.Print x
x = int ( CSng (Intervalle ) ) & " jours " & Format (Intervalle , "hh" ) _
& " Heures " & Format (Intervalle , "nn ") & " Minutes" & _
< p> Format (Intervalle , "ss ") & " secondes "
Debug.Print x
End Function
5 type suivant la fonction " écoulé du temps" appeler la fenêtre " immédiate" et appuyez sur la touche "Entrée" :
? ElapsedTime (# 6/1/1999 20:23:00 # - # 6/1/1999 08:12:12 #)
changer les dates aux dates auxquelles vous souhaitez calculer
< br . > 6 Cliquez sur le menu "Fichier" , puis entrez un nom pour votre module, comme " elapsed_time . " Sélectionnez "Enregistrer".
7 Cliquez sur le menu "Debug" , et sélectionnez "Compiler ". Enregistrez le fichier , puis cliquez sur "Return to Base de données ».
|
