Επιστρέφει Variant (Date), η οποία περιέχει τη χρονική τιμή για συγκεκριμένες τιμές ωρών, λεπτών και δευτερολέπτων.
Σύνταξη
TimeSerial(hour, minute, second)
Η σύνταξη της συνάρτησης TimeSerial έχει τα εξής επώνυμα ορίσματα:
Μέρος Περιγραφή
hour Απαιτείται. Variant (Integer). Αριθμός στο κλειστό διάστημα 0 (12:00 Π.Μ.) έως 23 (11:00 Μ.Μ.) ή αριθμητική έκφραση.
minute Απαιτείται. Variant (Integer). Οποιαδήποτε αριθμητική έκφραση.
Second Απαιτείται. Variant (Integer). Οποιαδήποτε αριθμητική έκφραση.
Παρατηρήσεις
Για να καθορίσετε μια ώρα, όπως π.χ. 11:59:59, η περιοχή των αριθμών για κάθε όρισμα TimeSerial πρέπει να βρίσκεται στην κανονική περιοχή για την αντίστοιχη μονάδα. Δηλαδή, 023 για τις ώρες και 059 για τα λεπτά και τα δευτερόλεπτα. Μπορείτε, επίσης, να καθορίσετε σχετικές ώρες για κάθε όρισμα χρησιμοποιώντας οποιαδήποτε αριθμητική έκφραση η οποία αντιπροσωπεύει κάποιον αριθμό ωρών, λεπτών ή δευτερολέπτων, πριν από ή μετά από μια συγκεκριμένη ώρα. Στο παρακάτω παράδειγμα χρησιμοποιούνται εκφράσεις αντί για απόλυτους αριθμούς ώρας. Η συνάρτηση TimeSerial επιστρέφει μια ώρα που αντιστοιχεί σε 15 λεπτά πριν (-15) τις έξι προ μεσημβρίας (12 - 6) ή 5:45:00 Π.Μ.
TimeSerial(12 - 6, -15, 0)
Εάν ένα όρισμα υπερβεί την περιοχή που είναι αποδεκτή για το συγκεκριμένο όρισμα, μεταβαίνει στην αμέσως μεγαλύτερη κατάλληλη μονάδα. Για παράδειγμα, εάν καθορίσετε 75 λεπτά, υπολογίζεται ως μία ώρα και 15 λεπτά. Εάν ένα όρισμα πραγματικού αριθμού βρίσκεται έξω από την περιοχή -32,768 έως 32,767, ανακύπτει σφάλμα. Εάν η ώρα που καθορίζεται από τα τρία ορίσματα βρίσκεται έξω από την αποδεκτή περιοχή ημερομηνιών, ανακύπτει σφάλμα.
Στο παράδειγμα αυτό χρησιμοποιείται η συνάρτηση TimeSerial για την επιστροφή πλήρους ώρας για την συγκεκριμένη ώρα, λεπτό και δευτερόλεπτο που καθορίζονται.
Dim Χρόνος
Χρόνος = TimeSerial(16, 35, 17) ' Η μεταβλητή Χρόνος περιέχει σειριακή
' αναπαράσταση του 4:35:17 PM.