Comment comparer une date avec vb.net

Ouvrez Visual Studio ou VB express. Créez un nouveau projet de formulaire Visual Basic Windows. Cliquez sur "Fichier" puis "Nouveau". La fenêtre "Nouveau projet" apparaîtra. Choisissez "Visual Basic, Windows" de l'arborescence, puis choisissez "Projet Windows Form." Nommez le projet "DateTest" et cliquez sur OK. Après une courte attente, la fenêtre sous forme de concepteur apparaîtra.

Cliquez sur l'icône «Boîte à outils» sur la barre d'outils, puis attendez la boîte à outils pour l'ouvrir. Faites glisser un "DateTimePicker" sur le formulaire. droit; cliquez sur la date, puis choisissez "Propriétés". Nommez-le "dtDate,« changer le "Format" propriété à "court" et la propriété "Largeur" ​​à "100." Cliquez sur la touche "Escape" pour fermer la fenêtre "Propriétés".

Faites glisser un bouton de la boîte à outils sur le formulaire. Nommez-le "btnView," et changer la propriété "Texte" à "Affichage". Double-cliquez sur le bouton pour créer un gestionnaire d'événements, puis ajoutez le code suivant au gestionnaire de:

Private Sub btnView_Click (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) Poignées btnView.Click

MsgBox (dtDate.Value.ToString)
End Sub

Cliquez sur la touche "F5" pour exécuter le programme. Lorsque le formulaire apparaît, cliquez sur le bouton "Voir" sans changer la date. Notez comment la fois la date et l'heure apparaissent même si seule la date est apparu dans le "DateTimePicker."

Fermez le programme en cliquant sur le «X» dans le coin supérieur droit, puis revenir à la vue de conception. Faites glisser un autre bouton de la boîte à outils pour la forme. Appelez le bouton "btnToday," et modifiez la propriété de texte à «Aujourd'hui». Double-cliquez sur le bouton "Aujourd'hui" pour créer un autre gestionnaire d'événements, puis ajoutez le code suivant:

Private Sub btnToday_Click (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) Poignées btnToday.Click

Msg Dim As String = "La date est entrée ("
Msg = Date.Today.ToShortDateString
msg = ") Est"
Si dtDate.Value < Date.Today Then
Msg = "Inférieur à"
ElseIf dtDate.Value = Puis Date.Today
msg = "Matchs"
ElseIf dtDate.Value> Puis Date.Today
msg = "Supérieure"


Fin si
msg = "Aujourd'hui ("
msg = Date.Today.ToShortDateString
msg = ")"
MsgBox (MSG)
End Sub

Cliquez sur "F5" pour exécuter le programme, puis cliquez sur le bouton "Aujourd'hui" lorsque le formulaire apparaît. Notez comment le message qui apparaît indique que la date saisie (aujourd'hui) est supérieure à aujourd'hui. Encore une fois, ceci est provoqué par le temps qui a été ajouté par la commande "DateTimePicker". Fixer le programme en changeant les comparaisons comme suit:

Si dtDate.Value.Date < Date.Today Then

Cliquez sur "F5" une fois de plus pour démarrer le programme, puis cliquez sur le bouton "Aujourd'hui" de voir que les dates correspondent.