Σε αυτό το άρθρο, θα δημιουργήσουμε μια μακροεντολή για τη μορφοποίηση του χρόνου σε μορφή hh: mm.sss.
Τα ακατέργαστα δεδομένα για αυτό το παράδειγμα αποτελούνται από ορισμένες τιμές χρόνου στη στήλη Ε.
Σε αυτό το άρθρο, έχουμε δημιουργήσει μια συνάρτηση (ή προσαρμοσμένη συνάρτηση) που ορίζεται από το χρήστη "HHMMSSSFormat". Αυτή η συνάρτηση λαμβάνει τον τύπο ημερομηνίας ως είσοδο και επιστρέφει την έξοδο σε τύπο δεδομένων συμβολοσειράς σε μορφή hh: mm.sss.
Λογική εξήγηση
Στη συνάρτηση "HHMMSSSFormat" για τη μετατροπή 60 δευτερολέπτων σε τριψήφιο αριθμό, χωρίσαμε τα δευτερόλεπτα στην καθορισμένη χρονική τιμή με 60 για να πάρουμε το κλάσμα για καθορισμένα δευτερόλεπτα και στη συνέχεια το πολλαπλασιάσαμε με χιλιάδες για να πάρουμε τον τριψήφιο αριθμό.
Η λειτουργία "HHMMSSSFormat" μπορεί να χρησιμοποιηθεί καλώντας είτε απευθείας στο φύλλο Excel είτε χρησιμοποιώντας τη συνάρτηση μέσα στην άλλη διαδικασία (ή μακροεντολή).
Η παρακάτω εικόνα δείχνει πώς χρησιμοποιήσαμε τη συνάρτηση "HHMMSSSFormat" στο φύλλο του Excel για να αντλήσουμε το χρόνο σε μορφή hh: mm.sss.
Δημιουργήσαμε επίσης μια μακροεντολή "GettingCurrentTimeinHHMMSSSFormat" η οποία χρησιμοποιεί τη λειτουργία "HHMMSSSFormat" για να εμφανίσει την τρέχουσα ώρα σε μορφή hh: mm.sss σε ένα πλαίσιο μηνυμάτων. Η παρακάτω εικόνα δείχνει την έξοδο όταν εκτελούμε αυτήν τη μακροεντολή σε 3: 54: 30 δευτερόλεπτα.
Ακολουθήστε παρακάτω για τον κωδικό
Επιλογή ρητή συνάρτηση HHMMSSSFormat (Ημερομηνία ως ημερομηνία) Ως συμβολοσειρά 'η συνάρτηση θα επιστρέψει τιμή συμβολοσειράς' Δηλώνοντας ακέραια μεταβλητή Dim SecondValue As Integer 'Εξαγωγή δευτερολέπτων από την παράμετρο DateTime SecondValue = Second (DateTime)' Μετατροπή της τιμής δευτερολέπτων σε τριψήφιο αριθμό SecondValue = (SecondValue / 60) * 1000 'Αλλάξτε τη μορφοποίηση του χρόνου στην απαιτούμενη μορφή HHMMSSSFormat = Μορφή (ourρα (Ημερομηνία), "00") & ":" & _ Μορφή (Λεπτό (Ημερομηνία), "00") & "." & Μορφοποίηση (SecondValue, "000") Τέλος συνάρτησης Sub GettingCurrentTimeinHHMMSSSFormat () 'Δήλωση μεταβλητής συμβολοσειράς Dim CurrentTime As String' Κλήση προσαρμοσμένης λειτουργίας HHMMSSSFormat CurrentTime = HHMMSSSFormat (Τώρα) 'Εμφάνιση κουτιού μηνυμάτων με κουμπί Ok μόνο MsgBox Currentnime, "Τέλος υπο
Αν σας άρεσε αυτό το blog, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email
