I Visual Basic.Net , dato variable type butikker både dato og tid til en præcision på mindre end et millisekund. Nogle gange er det svært at huske , da datatype simpelthen kaldes en dato. Den anden faldgrube at huske , er, at . Net Framework ikke er altid konsekvent , når opbevaring datoer og undertiden omfatter den tid på dagen, hvor det forekommer logisk, at kun dato skal gemmes. Heldigvis kan du let sammenligne en date med VB.NET ved at følge nogle få enkle trin . Ting du skal
Microsoft Visual Basic Express 2010
Visual Studio 2010 , 2008 eller 2005
Vis Flere Instruktioner
1
Open Visual Studio eller VB Express. Opret en ny Visual Basic Windows formular projekt. Klik på "File " efterfulgt af " Ny". Den " Nyt projekt " vinduet vises. Vælg "Visual Basic , Windows " fra trævisningen og derefter vælge "Windows Form Project. " Navngiv projektet " DateTest " og klik OK. Efter en kort ventetid , vil formularen designer vindue.
2
Klik på " Toolbox" -ikonet på værktøjslinjen og derefter vente på, at værktøjskassen til at åbne . Træk et " DateTimePicker " på formularen. Højreklik på datoen, og vælg derefter " Egenskaber". Name it " dtDate " ændre " Format " ejendom til " Short " og " Bredde " ejendom til " 100 ". Klik på "Escape "-tasten for at lukke "Egenskaber " vinduet.
3
Træk en knap fra værktøjskassen til formularen . Name it " btnView " og ændre " Text" ejendom til " View ". Dobbeltklik på knappen for at oprette en begivenhed handleren, og derefter tilføje følgende kode til handleren : Hej
Private Sub btnView_Click ( ByVal afsender Som System.Object , ByVal e Som System.EventArgs ) Handles btnView.Click < br >
MsgBox ( dtDate.Value.ToString )
End Sub
4
Klik på " F5 " for at køre programmet. Når formularen vises, klik på "Vis "-knappen uden at ændre datoen. Bemærk , hvordan både dato og klokkeslæt vises , selvom kun dato optrådte i " DateTimePicker . "
5
Luk programmet ved at klikke på "X" i øverste højre hjørne og derefter skifte tilbage til design view. Træk en anden knap fra værktøjskassen til formularen . Ring knappen " btnToday ", og ændre teksten ejendom til "I dag ". Dobbeltklik på "Today" -knappen for at oprette en anden event handler , og tilføj derefter følgende kode : Hej
Private Sub btnToday_Click ( ByVal afsender Som System.Object , ByVal e Som System.EventArgs ) Handles btnToday.Click < br >
Dim msg As String = "Datoen indtastet ( "
Msg & = Date.Today.ToShortDateString
msg & = ") er "
p Hvis dtDate.Value < Date.Today Så
Msg & = " mindre end "
EllersHvis dtDate.Value = Date.Today Så
msg & = " kampe " < br >
EllersHvis dtDate.Value > Date.Today Så
msg & = " større end "
end If
msg & = " I dag ( " < br >
msg & = Date.Today.ToShortDateString
msg & = " ) "
MsgBox ( msg )
End Sub
6
Klik på " F5 " for at køre programmet , og klik derefter på "Today" -knappen, når formularen vises . Bemærk hvordan meddelelse, der vises , siger , at datoen indtastes ( i dag) er større end i dag. Igen , dette skyldes den tid , der blev tilføjet af " DateTimePicker " kontrol . Fastgør programmet ved at ændre sammenligningerne som følger : Hej p Hvis dtDate.Value.Date < Date.Today Så
7
Klik på " F5 " en mere tid til at starte program , og klik derefter på "Today" -knappen for at se, at de datoer matche.