Δημιουργήστε τις μεταβλητές ημερομηνία και να εκχωρήσετε μια τιμή . Η τρίτη μεταβλητή είναι η μεταβλητή συμβολοσειράς , το οποίο χρησιμοποιείται για την εκχώρηση .
Δημ. MyDate ως DateDim myString ως StringmyDate = " 12.20.1975 " 2
Μετατρέψτε την ημερομηνία που μια σειρά και να ορίσετε τη νέα τιμή στη μεταβλητή συμβολοσειράς . Ο κώδικας που ακολουθεί μετατρέπει την ημερομηνία σας :
myString = Cstr ( MyDate )
εικόνων 3
Εκτυπώστε το αποτέλεσμα σε ένα πλαίσιο μηνύματος . Ένα πλαίσιο μηνύματος χρησιμοποιείται για να δοκιμάσετε τον κώδικα και βεβαιωθείτε ότι η μετατροπή αυτή ήταν επιτυχής . Ο ακόλουθος κώδικας εμφανίζει τα νέα τιμή συμβολοσειράς σας :
MsgBox ( myString )
Η
4 Αποθηκεύστε τις αλλαγές και κάντε κλικ στο πλήκτρο " F5 " . Το πλήκτρο F5 συγκεντρώνει τον κωδικό σας και το εκτελεί , ώστε να μπορείτε να ελέγξετε τις αλλαγές .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα