Πώς να υπολογίσετε την ημερομηνία της Access

Microsoft Access είναι ένα λογισμικό διαχείρισης βάσεων δεδομένων που περιλαμβάνονται στη σουίτα Microsoft Office . Η Access χρησιμοποιεί μια μορφή της γλώσσας προγραμματισμού Visual Basic , προκειμένου να προβλεφθούν ορισμένες λειτουργίες, όπως ημερομηνία και ώρα . Η τιμή για την ημερομηνία και ώρα είναι ως ένα κλάσμα του 24 ώρες. Μορφοποίηση της ημερομηνίας για χρονικές περιόδους που υπάρχουν σε περισσότερες από 24 ώρες απαιτούν από εσάς να χρησιμοποιήσετε μια συνάρτηση οριζόμενη από το χρήστη που αντισταθμίζει αυτό τον περιορισμό . Οδηγίες
Η 1

Ξεκινήστε με την εφαρμογή Microsoft Access . Κάντε κλικ στο μενού "Αρχείο" και επιλέξτε " Open". 2

Εντοπίστε το έγγραφο που θέλετε να ανοίξετε . Κάντε κλικ μια φορά , και κάντε κλικ στο κουμπί "Άνοιγμα" .
Εικόνων 3

Εντοπίστε το παράθυρο της βάσης δεδομένων , και κάντε κλικ στο μενού " Modules " . Επιλέξτε " Νέα ". Πληκτρολογήστε τη φράση "Επιλογές Ρητή " στην ενότητα " δηλώσεις ", εάν δεν είναι ήδη εκεί
Η 4

Πληκτρολογήστε ή αντιγράψτε και επικολλήστε την ακόλουθη διαδικασία " Χρόνος που πέρασε " στο παράθυρο " δηλώσεις " : .

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

'Αυτή η λειτουργία υπολογίζει το χρόνο που έχει παρέλθει μεταξύ δύο τιμών και στη συνέχεια

« μορφοποιεί το αποτέλεσμα . με τέσσερις διαφορετικούς τρόπους

«

« Η λειτουργία δέχεται διάστημα επιχειρήματα , όπως τα ακόλουθα :

«

'# 12/05/95 6 : 00:00 AM # - # 05/11/95 10:00:00 PM #

«

»

»

» [ Ώρα λήξης ] - [ Ώρα έναρξης ] Ξενοδοχεία

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

Λειτουργία ElapsedTime ( Interval )

Dim x

x = Int ( CSng ( Διάστημα * 24 * 3600 ) ) & " Δευτερόλεπτα "

Debug.Print x

x = Int ( CSng ( Διάστημα * 24 * 60 ) ) και " : " & Format ( Interval " ss " ) _

& " Λεπτά : Δευτερόλεπτα "

Debug.Print x

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

& " Ώρες : Λεπτά : Δευτερόλεπτα "

Debug.Print x

x = Int ( CSng ( Interval ) ) & "ημέρες" & Format ( Interval , " hh" ) _

& " Hours" & Format ( Interval , " nn " ) & " Πρακτικά" & _

Format ( Interval " ss " ) & " Δευτερόλεπτα "

Debug.Print x

Function End
5

Τύπος μετά την λειτουργία " Χρόνος που πέρασε " καλέστε στο παράθυρο " Άμεση " και πατήστε το πλήκτρο "Enter" :

; ElapsedTime ( # 06/01/1999 8:23:00 PM # - # 06/01/1999 8:12:12 AM # ) .

Αλλάξτε τις ημερομηνίες για τις ημερομηνίες που θέλετε να υπολογίσετε

6

Κάντε κλικ στο μενού "Αρχείο" και πληκτρολογήστε ένα όνομα για τη μονάδα σας , όπως " Elapsed_Time . " Επιλέξτε " Αποθήκευση".
Η

7 Κάντε κλικ στο μενού " Debug " , και επιλέξτε " Compile ". Αποθηκεύστε το αρχείο και κάντε κλικ στο " Επιστροφή στην βάση δεδομένων . "
Η
εικόνων