In Visual Basic.Net , de datum variabele soort winkels zowel de datum en de tijd met een nauwkeurigheid van minder dan een milliseconde . Soms is dit moeilijk te onthouden omdat het gegevenstype heet simpelweg een date . De andere valkuil om te onthouden is dat het . Net Framework is niet altijd consistent bij het opslaan van data en bevat soms ook de tijd van de dag waarin het lijkt logisch dat alleen de datum dient te worden opgeslagen . Gelukkig kunt u eenvoudig vergelijken een date met VB.NET door het volgen van een paar eenvoudige stappen . Wat je nodig hebt Microsoft Visual Basic Express 2010 Visual Studio 2010 , 2008 of 2005 Toon Meer Aanwijzingen 1 Open Visual Studio of VB Express . Maak een nieuwe Visual Basic Windows vorm project . Klik op " Bestand " , gevolgd door " Nieuw . " Het " Project Nieuw" venster zal verschijnen . Kies " Visual Basic , Windows " uit de boomstructuur , en kies vervolgens " Windows Form Project . " Noem het project " DateTest " en klik op OK . Na een korte wachttijd , zal de ontwerper venster vorm verschijnen . Kopen van 2 Klik op de " Toolbox " pictogram op de taakbalk , en dan wachten op de toolbox te openen . Sleep een " DateTimePicker " op het formulier . Klik met de rechtermuisknop op de datum , en kies 'Eigenschappen'. Noem het " dtDate , " verander de " Format " eigenschap in op " Short " en de " breedte " eigenschap in op " 100 . " Klik op de toets " Escape " om het venster "Eigenschappen " te sluiten . 3 Sleep een knop uit de gereedschapskist op het formulier . Noem het " btnView , " en verander de " Text " eigenschap in op " bekijken . " Dubbelklik op de knop om een event handler te maken , en voeg de volgende code toe aan de handler : Private Sub btnView_Click ( ByVal afzender als System.Object , ByVal e als System.EventArgs ) op Twitter Handles btnView.Click < br MsgBox ( dtDate.Value.ToString ) > End Sub 4 Klik op de " F5 " toets om het programma uit te voeren . Wanneer het formulier wordt weergegeven , klikt u op de "View" knop zonder de datum . Merk op hoe zowel de datum en de tijd verschijnen ook al verscheen alleen de datum in de " DateTimePicker . " 5 Sluit het programma door te klikken op de "X" op de rechterbovenhoek , en ga vervolgens terug naar het ontwerp te bekijken . Sleep een andere knop van de toolbox op het formulier . Bel de knop " btnToday , " en verander de eigenschap text op " Today . " Dubbelklik op de "Today" knop om een andere event handler te maken , en voeg de volgende code : Private Sub btnToday_Click ( ByVal afzender als System.Object , ByVal e als System.EventArgs ) op Twitter Handles btnToday.Click < br Dim msg > As String = " De datum ingevoerd ( " msg & = Date.Today.ToShortDateString msg & = " ) is " Als dtDate.Value < date.today dan msg & = " minder dan " ElseIf dtDate.Value = date.today msg & = " wedstrijden " dan < br > ElseIf dtDate.Value > date.today dan msg & = " groter dan" End Als msg & = " Vandaag ( " < br msg > & = Date.Today.ToShortDateString msg & = " ) " MsgBox ( msg ) op End Sub 6 Klik op " F5 " om het programma uit te voeren , en klik vervolgens op de " Today " knop wanneer het formulier wordt weergegeven . Merk op hoe het bericht dat verschijnt zegt dat de ingevoerde datum ( vandaag ) groter is dan vandaag . Ook dit wordt veroorzaakt door de tijd die is toegevoegd door de " DateTimePicker " control . Bevestig het programma door het veranderen van de vergelijkingen te luiden als volgt : Als dtDate.Value.Date < date.today Dan 7 Klik op " F5 " nog een keer aan de start programma , en klik vervolgens op de " Today " knop om te zien dat de data overeenkomen .
|