Τρόπος εμφάνισης τη διαφορά των ημερομηνιών ώρες σε VBA

Microsoft περιλαμβάνει τη VBA , ή Visual Basic for Applications , γλώσσα προγραμματισμού με τα περισσότερα από τα μεγάλα προγράμματα του Microsoft Office , όπως Excel, Access , PowerPoint και Word. VBA περιλαμβάνει το " DateDiff ", η οποία θα επιστρέψει τη διαφορά μεταξύ δύο ημερομηνιών . Η λειτουργία σας επιτρέπει επίσης να επιλέξετε το χρονικό διάστημα που η συνάρτηση θα χρησιμοποιήσει από μια λίστα που περιλαμβάνει χρόνια , μέρες , ώρες , λεπτά και δευτερόλεπτα . Οδηγίες
Η

1 Ανοίξτε το προϊόν του Microsoft Office που χρησιμοποιείτε με VBA . Πατήστε το πλήκτρο " Alt " και " F11 " για να ανοίξετε την κονσόλα VBA . 2

Κάντε κλικ στη μονάδα που κρατά τον κωδικό σας VBA από τη λίστα στην αριστερή πλευρά της οθόνης . Όταν ο κώδικας φαίνεται στη δεξιά πλευρά , τοποθετήστε τον κέρσορα στην κενή γραμμή στον κώδικα όπου θα πρέπει να προσδιοριστεί η διαφορά μεταξύ των δύο ημερομηνιών .
Εικόνων 3

Πληκτρολογήστε την ακόλουθη γραμμή στο VBA σας Κωδικός :

x = DateDiff ( " h" , ημερομηνία1 , ημερομηνία2 )

Η "h" θα διασφαλίσει ότι θα έχετε την ημερομηνία διαφορά σε ώρες . "X " είναι μια μεταβλητή που διαπιστώθηκε νωρίτερα στον κώδικα , και μπορείτε να το αλλάξετε σε ό, τι μεταβλητή που πρέπει να είναι. " Ημερομηνία1 " και " ημερομηνία2 » είναι μεταβλητές που θα κρατήσει τις τιμές την ημερομηνία σας . Μπορείτε να ορίσετε ημερομηνίες για τις αξίες αυτές νωρίτερα στον κώδικα . Αντί για αυτές τις μεταβλητές , μπορείτε να χρησιμοποιήσετε το " Τώρα " για να επιστρέψει την τρέχουσα ημερομηνία και ώρα , "Ημερομηνία" για να επιστρέψει την τρέχουσα ημερομηνία , ή " Ώρα" για να επιστρέψει την τρέχουσα ώρα . Μπορείτε επίσης να εισάγετε χειροκίνητα την ημερομηνία και την ώρα , χρησιμοποιώντας την ακόλουθη μορφή : " # ωω ηη /μμ /εεεε : mm : ss # " . Να είστε βέβαιος να περιλάβει τη λίρα πινακίδες χρονολογούνται τόσο VBA μπορεί να το καταλάβει .
Η

4 Πατήστε το πλήκτρο " Enter" για να αποκτήσετε πρόσβαση σε μια νέα γραμμή κώδικα . Εισάγετε τον παρακάτω κώδικα για να εμφανίσετε τη διαφορά μεταξύ των ημερομηνιών :

MsgBox x

Αλλαγή "x " σε ό, τι μεταβλητή που χρησιμοποιείται στο μέτωπο της γραμμής " DateDiff " . Όταν εκτελείτε τον κώδικα , η διαφορά μεταξύ των ημερομηνιών θα εμφανιστεί σε ένα μικρό κουτί μήνυμα στην οθόνη .
Η
εικόνων