I Visual Basic.Net , datoen variabel type butikker både dato og tid til en nøyaktighet på mindre enn et millisekund . Noen ganger er dette vanskelig å huske siden det datatype er rett og slett kalles en date . Den andre fallgruven å huske er at . Net Framework er ikke alltid konsekvent når du lagrer datoer og noen ganger inneholder den tiden av dagen når det virker logisk at bare datoen skal lagres . Heldigvis kan du enkelt sammenligne en date med VB.NET ved å følge noen enkle trinn. Du trenger
Microsoft Visual Basic Express 2010
Visual Studio 2010, 2008 eller 2005
Vis flere instruksjoner
en

Åpne Visual Studio eller VB Express. Opprett en ny Visual Basic Windows skjema prosjektet. Klikk på " File " og deretter " New". Den " New Project" vises. Velg " Visual Basic, Windows" fra trevisningen , og velg deretter " Windows Form Project. " Navn prosjektet " DateTest " og klikk OK. Etter en kort stund , vil skjemaet designer vinduet vises.
2

Klikk på " Toolbox "-ikonet på verktøylinjen , og deretter vente på verktøykassen for å åpne . Dra en " DateTimePicker " på skjemaet . Høyreklikk på dato , og velg "Properties". Name it " dtDate , " endre " Format" egenskapen til " Short" og " bredde " eiendom til " 100". Klikk på " Escape " tasten for å lukke " Properties " vinduet .
3

Dra en knapp fra verktøykassen på skjemaet . Name it " btnView , " og endre "Text " eiendom til "View ". Dobbeltklikk på knappen for å opprette en hendelse handler, og legg deretter til følgende kode til behandleren : en

Private Sub btnView_Click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak btnView.Click

MsgBox ( dtDate.Value.ToString )

End Sub
4

Klikk på " F5 " tasten for å kjøre programmet . Når skjemaet vises, klikker du på "View "-knappen uten å endre datoen . Legg merke til hvordan både dato og klokkeslett vises selv om bare datoen dukket opp i " DateTimePicker . "
5

Lukk programmet ved å klikke på "X " øverst i høyre hjørne , og deretter bytte tilbake til design-visning. Dra en annen knapp fra verktøykassen til skjemaet . Ring på knappen " btnToday ", og endre teksten eiendommen til "I dag ". Dobbeltklikk på "Today" -knappen for å opprette en ny hendelse handler, og legg deretter til følgende kode :

Private Sub btnToday_Click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak btnToday.Click

Dim msg As String = "Datoen angitt ( "

Msg & = Date.Today.ToShortDateString

msg & = " ) er"
p Hvis dtDate.Value < Date.Today Deretter

Msg & = " mindre enn"

ElseIf dtDate.Value = Date.Today Deretter

msg & = " kamper "

ElseIf dtDate.Value > Date.Today Deretter

msg & = " større enn "

End If

msg & = "I dag ( "

msg & = Date.Today.ToShortDateString

msg & = ")"

MsgBox ( MSG)

End Sub
6

Klikk på " F5 " for å kjøre programmet , og klikk deretter på " Today" -knappen når skjemaet vises. Legg merke til hvordan meldingen som vises sier at datoen som er angitt (i dag ) er større enn i dag. Igjen er dette forårsaket av den tiden som ble lagt til av " DateTimePicker " kontroll. Fix programmet ved å endre sammenligninger til å lyde som følger:
p Hvis dtDate.Value.Date < Date.Today Deretter
7

Klikk på " F5" en gang til for å starte program , og klikk deretter på " Today" -knappen for å se at datoene matche.