Πώς να Συγκρίνετε μια ημερομηνία με VB.NET

Στο Visual Basic.Net , τις μεταβλητές ημερομηνία καταστήματα τύπου και την ημερομηνία και την ώρα με ακρίβεια μικρότερη από ένα χιλιοστό του δευτερολέπτου . Μερικές φορές αυτό είναι δύσκολο να θυμάμαι από το είδος των δεδομένων που ονομάζεται απλά μια ημερομηνία . Η άλλη παγίδα που πρέπει να θυμάστε είναι ότι το . Net Framework δεν είναι πάντοτε συνεπής κατά την αποθήκευση ημερομηνίες και μερικές φορές περιλαμβάνει και την ώρα της ημέρας, όταν φαίνεται λογικό ότι μόνο η ημερομηνία θα πρέπει να αποθηκεύονται . Ευτυχώς , μπορείτε εύκολα να συγκρίνετε μια ημερομηνία με VB.NET , ακολουθώντας μερικά απλά βήματα . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Basic Express 2010
Visual Studio 2010 , 2008 ή 2005
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε το Visual Studio ή VB Express . Δημιουργήστε μια νέα φόρμα του έργου της Visual Basic Windows. Κάντε κλικ στο " Αρχείο ", ακολουθούμενο από το " New . " Θα εμφανιστεί το παράθυρο " New Project" . Επιλέξτε " Visual Basic , τα Windows " από την προβολή δέντρου , και στη συνέχεια επιλέξτε " των Windows Form Project. " Το όνομα του έργου " DateTest " και κάντε κλικ στο OK . Μετά από μια σύντομη αναμονή , θα εμφανιστεί το παράθυρο της φόρμας σχεδιαστή . 2

Κάντε κλικ στο εικονίδιο " Toolbox" στη γραμμή εργαλείων και, στη συνέχεια, περιμένετε για την εργαλειοθήκη για να ανοίξει . Σύρετε ένα " DateTimePicker " στη φόρμα . Κάντε δεξί κλικ στην ημερομηνία και στη συνέχεια επιλέξτε " Ιδιότητες". Ονομάστε το " dtDate , " να αλλάξετε το " Format " ιδιότητα "Short " και το " Πλάτος " ιδιότητα " 100 ". Κάντε κλικ στο πλήκτρο " Escape " για να κλείσει τις " Ιδιότητες" παράθυρο .
Εικόνων 3

Σύρετε ένα κουμπί από την εργαλειοθήκη στη φόρμα . Ονομάστε το " btnView , " και αλλάξτε το "Text " ιδιότητα " Προβολή ". Κάντε διπλό κλικ στο κουμπί για να δημιουργήσετε ένα πρόγραμμα χειρισμού συμβάντων , και στη συνέχεια προσθέστε τον ακόλουθο κώδικα για τον χειριστή :

Private Sub btnView_Click ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές btnView.Click

MsgBox ( dtDate.Value.ToString )

End Sub
Η

4 Κάντε κλικ στο πλήκτρο " F5 " για να εκτελέσετε το πρόγραμμα . Όταν εμφανιστεί η φόρμα , κάντε κλικ στο κουμπί "Προβολή ", χωρίς αλλαγή της ημερομηνίας . Σημειώστε πως τόσο η ημερομηνία και η ώρα εμφανίζονται έστω και αν η ημερομηνία που εμφανίστηκε στο " DateTimePicker . "
5

Κλείστε το πρόγραμμα κάνοντας κλικ στο "Χ " στην επάνω δεξιά γωνία , και στη συνέχεια να επιστρέψετε στο προβολή σχεδίασης . Σύρετε ένα άλλο κουμπί από την εργαλειοθήκη στη φόρμα . Καλέστε το κουμπί " btnToday , " και να αλλάξετε την ιδιότητα κειμένου " Σήμερα". Κάντε διπλό κλικ στο κουμπί " Σήμερα" για να δημιουργήσετε ένα άλλο πρόγραμμα χειρισμού συμβάντων , και στη συνέχεια προσθέστε τον ακόλουθο κώδικα :

Private Sub btnToday_Click ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές btnToday.Click

Dim msg As String = " Η ημερομηνία τέθηκε ( «

Msg & = Date.Today.ToShortDateString

msg & = " ) είναι "

Αν dtDate.Value

Msg & = " λιγότερο από "

ElseIf dtDate.Value = Date.Today τότε

msg & = " αγώνες "

ElseIf dtDate.Value > Date.Today τότε msg & = " μεγαλύτερο από"

End If

msg & = " Σήμερα ( "

msg & = Date.Today.ToShortDateString

msg & = " ) "

MsgBox ( msg )

End Sub
Η 6

Κάντε κλικ στο " F5 " για να εκτελέσετε το πρόγραμμα , και στη συνέχεια κάντε κλικ στο κουμπί " Σήμερα " , όταν εμφανιστεί η φόρμα . Σημειώστε πως το μήνυμα που εμφανίζεται λέει ότι η ημερομηνία που ( σήμερα ) είναι μεγαλύτερη από ό, τι σήμερα . Και πάλι , αυτό προκαλείται από τη στιγμή που προστέθηκε από το " DateTimePicker " έλεγχος . Στερεώστε το πρόγραμμα αλλάζοντας τις συγκρίσεις ως εξής :

Αν dtDate.Value.Date Η

7 Κάντε κλικ στο " F5 " για μια ακόμη φορά για να ξεκινήσει η προγράμματος , και στη συνέχεια κάντε κλικ στο κουμπί " Σήμερα " για να δείτε ότι οι ημερομηνίες ταιριάζουν .
Η
εικόνων