Πώς να Μετατροπή της Μορφής Ημερομηνίας

Visual Basic 6.0 περιλαμβάνει μια σειρά από επιλογές μορφοποίησης που επιτρέπουν στο χρήστη να εμφανίσει και τις ημερομηνίες εκτύπωσης με διάφορους τρόπους . Χρησιμοποιώντας μερικές απλές ελέγχου της Visual Basic και υπό όρους δηλώσεις , μπορείτε να δημιουργήσετε ένα μικρό πρόγραμμα που θα παρουσιάσει αυτές τις μεθόδους . Αυτό το πρόσφατο παράδειγμα ξεκινά με σημερινή ημερομηνία και εμφανίζει διαφορετικές μορφές για την ίδια ημερομηνία . Χρησιμοποιήστε τις οδηγίες μορφοποίησης για να εισάγετε το επιθυμητό τρόπους για να εμφανίσετε μια ημερομηνία σε οποιοδήποτε πρόγραμμα που γράφετε . Οδηγίες
Η

1 Δημιουργήστε ένα νέο Visual Basic ( VB ) του έργου με τη « Standard EXE " πρότυπο διαθέσιμο όταν κάνετε κλικ στο "Αρχείο " και στη συνέχεια " New Project" σε VB . Κάντε κλικ στο "Αρχείο" και στη συνέχεια " Save Project As." Αποθηκεύστε τη φόρμα ως " ConvertDate » και το έργο ως « Μετατροπή Date" . 2

Κάντε διπλό κλικ στο " πλαίσιο λίστας " ελέγχου στην εργαλειοθήκη στο αριστερό μέρος της οθόνης για να το προσθέσετε στη φόρμα . Στο "Ιδιότητες" λίστα στα δεξιά της οθόνης , ρυθμίστε τη μορφή " Ύψος " περιουσία το 2600 και το " Πλάτος " 4500 . Σύρετε το " πλαίσιο λίστας " στην αριστερή πλευρά του μορφή και που το " ύψος " και " Πλάτος ", σε 1425 και 4725 . Προσθέστε τρία " ετικέτες " στη φόρμα , κάνοντας διπλό κλικ στο γράμμα "A " στην εργαλειοθήκη τρεις φορές . Τακτοποιήστε τις ετικέτες έτσι ώστε να « Label3 " είναι το κορυφαίο σημείο του εντύπου . Βάλτε " Label1 " και " Label2 " σε μια γραμμή κάτω από το πλαίσιο λίστας . Ρυθμίστε το "ύψος " και " Πλάτος " ιδιοκτησία " Label1 " με 500 και 1800 . Ρυθμίστε το "ύψος " και " Πλάτος " του " Label2 " με 800 και 3250 . Καταργήστε τις λεζάντες των " Label1 " και " Label2 " σε " Ιδιότητες" τμήμα τους , έτσι ώστε να είναι κενές.
Εικόνων 3

Κάντε κλικ στο " Προβολή " και στη συνέχεια "Κώδικας" στο κορυφαίο επίπεδο της Visual Basic μενού . Πληκτρολογήστε τον ακόλουθο κώδικα ακριβώς όπως εμφανίζεται .

Επιλογή ExplicitPrivate Sub Form_Load ( ) Label3.Caption = " Επιλέξτε την επιθυμητή μορφή για να εμφανιστεί. " Label1.Caption = " Σήμερα είναι " & Format ( Τώρα , " m /d /εεεε " ) Label2.Visible = TrueList1.AddItem " Full Date " List1.AddItem " Συντετμημένη Date " List1.AddItem " Ημέρα /Μήνας " List1.AddItem " Μήνας /Έτος " List1.AddItem " Ημερομηνία Μήνας , Έτος ( Day της εβδομάδας ) " List1.AddItem " Συντετμημένη Ημερομηνία συν Ημέρα, Εβδομάδα , και Quarter of the Year " End Sub
Η

4 Πληκτρολογήστε τις ακόλουθες γραμμές κώδικα κάτω από αυτές στο Βήμα 3 :

Private Sub List1_Click ( ) Select Case List1.ListIndexCase " 0 " Label2.Caption = Format ( τώρα , " ηηηη ηη μμμμ , εεεε " ) υπόθεση " 1 " Label2.Caption = Format ( τώρα , " m /d /εεεε " ) υπόθεση " 2 " Label2.Caption = Format ( τώρα , " d - μμμμ " ) Υπόθεση " 3 " Label2.Caption = Format ( τώρα , " mmmm - yy " ) Υπόθεση " 4 " Label2.Caption = Format ( τώρα , " μμμ ηη , εεεε ( dddd ) " ) Υπόθεση " 5 " Label2.Caption = Format ( τώρα , " ηη /μμ /εε ( \\ d \\ a \\ y = y \\ w \\ e \\ e \\ k = ww \\ q \\ u \\ a \\ r \\ t \\ e \\ r = q ) " ) End Sub SelectEnd
5

Πατήστε το" F5 "για να εκτελέσετε το πρόγραμμα . Αν δεν υπάρχουν προβλήματα , μπορείτε να κάνετε κλικ στο "Αρχείο " και στη συνέχεια "Δημιουργία Μετατροπή Date.exe " για να δημιουργήσετε ένα εκτελέσιμο έκδοση . Αν κάτι δεν φαίνεται σωστό , στη συνέχεια, πατήστε "F8 " στο βήμα μέσα από τις γραμμές του κώδικα και την απομόνωση , όπου ένα τυπογραφικό λάθος μπορεί να έχουν εισέλθει στις γραμμές κώδικα . Με την εξέταση τις οδηγίες μορφή στο Βήμα 4 θα καταλάβετε πως οι μετατροπές ημερομηνία διακινούνται σε Visual Basic .
Η
εικόνων