Dans Visual Basic.Net, les variables de date magasins de type à la fois la date et l`heure avec une précision de moins d`une milliseconde. Parfois, il est difficile de se rappeler car le type de données est simplement appelé une date. L`autre écueil à retenir est que le .Net Framework est pas toujours cohérente lors de l`enregistrement des dates et comprend parfois le temps de la journée où il semble logique que seule la date doit être stocké. Heureusement, vous pouvez comparer facilement une date avec VB.NET en suivant quelques étapes simples.
Choses que vous devez
- Microsoft Visual Basic Express 2010
- Visual Studio 2010, 2008 ou 2005
Ouvrez Visual Studio ou VB Express. Créer un nouveau projet de formulaire Visual Basic Windows. Cliquez "Fichier" suivi par "Nouveau." le "Nouveau projet" fenêtre apparaîtra. Choisir "Visual Basic, Windows" à partir de l`arborescence, puis choisissez "Projet Windows Form." Nom du projet "DateTest" et cliquez sur OK. Après une courte attente, la fenêtre sous forme de concepteur apparaîtra.
Clique le "Caisse à outils" icône sur la barre d`outils, puis attendez que la boîte à outils pour ouvrir. Faites glisser un "DateTimePicker" sur le formulaire. droite, cliquez sur la date, puis choisissez "Propriétés." Nomme le "dtDate," changer la "Format" immeuble à "Court" et le "Largeur" immeuble à "100." Clique le "Échapper" clé pour fermer la "Propriétés" fenêtre.
Faites glisser un bouton de la boîte à outils sur le formulaire. Nomme le "btnView," et changer la "Texte" immeuble à "Vue." Double-cliquez sur le bouton pour créer un gestionnaire d`événements, puis ajoutez le code suivant au gestionnaire:
Private Sub btnView_Click (expéditeur de ByVal comme System.Object, ByVal e As System.EventArgs) Poignées btnView.Click
MsgBox (dtDate.Value.ToString)End Sub
Clique le "F5" clé pour exécuter le programme. Lorsque le formulaire apparaît, cliquez sur le "Vue" bouton sans changer la date. Notez comment 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" sur le coin en haut à droite, 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 "Aujourd`hui" bouton 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 As System.EventArgs) Poignées btnToday.Click
Dim msg As String = "La date saisie ("Msg &= Date.Today.ToShortDateString
msg &= ") est "
Si dtDate.Value lt; Date.Today Puis
Msg &= "moins que"
ElseIf dtDate.Value = Date.Today Ensuite,
msg &= "allumettes"
ElseIf dtDate.Value gt; Date.Today Puis
msg &= "plus grand que"
Fin si
msg &= " Aujourd`hui ("
msg &= Date.Today.ToShortDateString
msg &= ")"
MsgBox (msg)
End Sub
Cliquez "F5" pour exécuter le programme, puis cliquez sur le "Aujourd`hui" bouton 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ée par l` "DateTimePicker" contrôle. Fixer le programme en changeant les comparaisons comme suit:
Si dtDate.Value.Date lt; Date.Today Puis
Cliquez "F5" une fois de plus pour lancer le programme, puis cliquez sur le "Aujourd`hui" bouton pour voir que les dates correspondent.
