Πώς να μετατρέψετε Ημερομηνίες για στρατιωτικούς ημερομηνίες στην Access 2007 VBA

Αναφέρονται για το πώς να διαμορφώσετε μια ημερομηνία μπορεί να είναι μια πρόκληση, αν δεν είστε εξοικειωμένοι με τη λειτουργία Format σε Visual Basic for Applications ή VBA . Χρησιμοποιήστε τη συνάρτηση Format για να διαμορφώσετε οποιαδήποτε ημερομηνία σε μια διαφορετική μορφή της ημερομηνίας , όπως είναι ένα στρατιωτικό μορφή. Η στρατιωτική ημερομηνία είναι συνήθως σχολιασμένο εμφανίζοντας μια διψήφιο αριθμό ημέρα , τα τρία πρώτα γράμματα του μήνα και ένα διψήφιο έτος . Μπορείτε να βρείτε αυτή τη λειτουργία χρήσιμη , ειδικά αν χρειαστεί να μετατρέψετε πολλές ημερομηνίες για στρατιωτικές ημερομηνίες σε μια βάση δεδομένων της Access . Οδηγίες
Η 1

Start " Access , κάντε" κλικ " Κενή βάση δεδομένων " και στη συνέχεια κάντε κλικ στο κουμπί "Δημιουργία ". Επιλέξτε από το μενού " Εργαλεία βάσης δεδομένων " , και στη συνέχεια κάντε κλικ στο " Visual Basic ". . Επιλέξτε το μενού "Εισαγωγή" , στη συνέχεια, κάντε κλικ στο κουμπί " Ενότητα " για να εισάγετε μια νέα λειτουργική μονάδα κώδικα 2

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε μια νέα διαδικασία VBA :

Private Sub convertToMilitaryDate ( )

On Error GoTo Err_convertToMilitaryDate :
3

Πληκτρολογήστε το παρακάτω, για να δημιουργήσει δύο μεταβλητές , μία για να κρατήσει τη σημερινή ημερομηνία και το άλλο για να κρατάτε το μορφοποιημένο στρατιωτική ημερομηνία :

Dim todaysDate Ως ημερομηνία

Dim militaryDate Όπως String
Η 4

Πληκτρολογήστε το παρακάτω, για να πάρει τη σημερινή ημερομηνία χρησιμοποιώντας το " Now ( ) " λειτουργία:

todaysDate = Now ()
5

Πληκτρολογήστε το παρακάτω για να διαμορφώσετε τη σημερινή ημερομηνία σε μια στρατιωτική μορφή ημερομηνίας :

militaryDate = Format ( todaysDate , "Medium Date" )

6

Πληκτρολογήστε το παρακάτω, για να αντικαταστήσει τα ενωτικά με ένα διάστημα:

militaryDate = Αντικατάσταση ( militaryDate , " - " , " " )
Η 7

Πληκτρολογήστε το παρακάτω για να εμφανίσετε η τελική στρατιωτική ημερομηνία κορδόνι μέσα από ένα κουτί μήνυμα :

MsgBox ( militaryDate )
8

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

Exit_convertToMilitaryDate :

Exit Sub

Err_convertToMilitaryDate :

MsgBox Err.Description

Συνέχιση Exit_convertToMilitaryDate :

End Sub

Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη διαδικασία .
Η
εικόνων