Επιστρέφει μια Μεταβλητή (Ημερομηνία) που περιέχει την τρέχουσα ημερομηνία του συστήματος.
Σύνταξη
Ημερομηνία
Παρατηρήσεις
Για να ορίσετε την ημερομηνία του συστήματος, χρησιμοποιήστε την πρόταση Date .
Εάν χρησιμοποιείτε τη συνάρτηση Date με ένα γρηγοριανό ημερολόγιο, η συμπεριφορά της ιδιότητας Date$ παραμένει αμετάβλητη από τη ρύθμιση της ιδιότητας Calendar. Εάν το ημερολόγιο είναι Χίζρι, η συνάρτηση Date$ επιστρέφει μια συμβολοσειρά 10 χαρακτήρων της φόρμας mm-dd-yyyy, όπου τα mm (01-12), dd (01-30) και yyyy (1400-1523) είναι ο μήνας, η ημέρα και το έτος Hijri. Η αντίστοιχη γρηγοριανή σειρά είναι 1 Ιανουαρίου 1980 έως 31 Δεκεμβρίου 2099.
Παραδείγματα ερωτημάτων
| Έκφραση | Αποτελέσματα |
|---|---|
| SELECT Date() AS Παράσταση1 FROM ProductSales GROUP BY Date(); | Επιστρέφει την τρέχουσα "ημερομηνία" του συστήματος σε μορφή σύντομης ημερομηνίας. Αποτέλεσμα: "ηη/μμ/yyyy". |
| SELECT Date()-[DateofSale] AS DaysSinceSale FROM ProductSales; | Επιστρέφει τη διαφορά μεταξύ του τρέχοντος συστήματος "Ημερομηνία" και των τιμών ημερομηνίας του πεδίου "DateofSale" ως αριθμό και εμφανίζει τα αποτελέσματα στη στήλη "DaySinceSale". |
Παραδείγματα VBA
Χρήση ημερομηνίας σε μια παράσταση Μπορείτε να χρησιμοποιήσετε τη συνάρτηση Date όπου μπορείτε να χρησιμοποιήσετε παραστάσεις. Για παράδειγμα, μπορείτε να ορίσετε την ιδιότητα Προέλευση στοιχείου ελέγχου ενός πλαισίου κειμένου σε μια φόρμα ως εξής:
=Date()
Όταν η φόρμα είναι ανοιχτή σε προβολή φόρμας, το πλαίσιο κειμένου εμφανίζει την τρέχουσα ημερομηνία του συστήματος.
Χρήση της συνάρτησης Date σε κώδικα VBA
Σημείωση
Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα Visual Basic for Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε Αναφορά προγραμματιστών στην αναπτυσσόμενη λίστα δίπλα στην Αναζήτηση και πληκτρολογήστε έναν ή περισσότερους όρους στο πλαίσιο αναζήτησης.
Αυτό το παράδειγμα χρησιμοποιεί τη συνάρτηση Date για να επιστρέψει την τρέχουσα ημερομηνία του συστήματος.
Dim MyDate
MyDate = Date ' MyDate contains the current system date.