I Visual Basic.Net , de datumvariabel typ butiker både datum och tid med en precision på mindre än en millisekund . Ibland är det svårt att komma ihåg eftersom datatypen är helt enkelt kallas en dag . Den andra fallgropen att komma ihåg är att det . Net Framework är inte alltid konsekvent vid lagring datum och ibland inkluderar tiden på dagen då det verkar logiskt att endast datumet ska lagras . Lyckligtvis kan du enkelt jämföra ett datum med VB.NET genom att följa några enkla steg . Saker du behöver
Microsoft Visual Basic Express 2010 Review, Visual Studio 2010 , 2008 eller 2005
Visa fler instruktioner
1
Öppna Visual Studio eller VB Express . Skapa ett nytt Visual Basic Windows formulär projektet . Klicka på " File " och sedan " Nytt . " Den " New Project "-fönstret visas . Välj " Visual Basic , Windows " från trädvyn och välj sedan " Windows Form Project . " Namnge projektet " DateTest " och klicka på OK . Efter en kort väntetid , kommer formuläret designern fönstret visas .
2
Klicka på " Verktyg" -ikonen i verktygsfältet , och sedan vänta på verktygslådan för att öppna . Dra en " DateTimePicker " på blanketten . Högerklicka på dagen , och välj sedan " Egenskaper . " Namnge den " dtDate , " ändra " Format " egenskap till " Kort " och " Bredd " egenskap till " 100 . " Klicka på " Escape " för att stänga " Egenskaper " fönstret .
3
Dra en knapp från verktygslådan till formuläret . Namnge den " btnView , " och ändra " Text " egenskapen " Visa ". Dubbelklicka på knappen för att skapa en händelsehanterare , och sedan lägga till följande kod till föraren :
Private Sub btnView_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) Handtag btnView.Click
MsgBox ( dtDate.Value.ToString ) katalog
End Sub
4
Klicka på " F5 " för att köra programmet . När formuläret visas , klicka på " Visa " -knappen utan att ändra datum . Notera hur både datum och klockslag visas även om endast den dag dök upp i " DateTimePicker . "
5
Stäng programmet genom att klicka på " X " i det övre högra hörnet , och sedan växla tillbaka till Design. Dra en annan knapp från verktygslådan till formuläret . Ring på knappen " btnToday , " och ändra texten egenskapen till " Idag ". Dubbelklicka på " Idag " -knappen för att skapa en annan händelsehanterare , och sedan lägga till följande kod :
Private Sub btnToday_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) Handtag btnToday.Click
Dim msg As String = " Det datum som anges ( "
Msg & = Date.Today.ToShortDateString
msg & = " ) är "
p Om dtDate.Value < Date.Today Sedan
Msg & = " mindre än "
ElseIf dtDate.Value = Date.Today Sedan
msg & = " matcher "
ElseIf dtDate.Value > Date.Today Sen
msg & = " större än "
End If
msg & = " Idag ( "
msg & = Date.Today.ToShortDateString
msg & = " ) "
MsgBox ( msg ) katalog
End Sub
6
Klicka på " F5 " för att köra programmet , och klicka sedan på " Idag " -knappen när formuläret visas . Notera hur meddelandet som visas säger att det datum anges ( idag ) är större än i dag . Återigen , är detta orsakas av den tid som lades av " DateTimePicker " kontroll . Fäst programmet genom att ändra jämförelser följande lydelse :
p Om dtDate.Value.Date < Date.Today Sedan
7
Klicka på " F5 " en gång för att starta program , och klicka sedan på " Idag " -knappen för att se att datumen stämmer .
