Ako porovnať rande s VB.NET

V Visual Basic.Net , dátum variabilný obchodoch typu aj dátum a čas s presnosťou menej ako milisekundu . Niekedy je to ťažké si spomenúť , pretože dátový typ je proste len dátum . Ďalšie pasca na pamäti , že . Net Framework nie je vždy konzistentné pri ukladaní dáta a niekedy zahŕňa dennú dobu , kedy sa zdá logické , že iba dátum by mali byť uložené . Našťastie , môžete ľahko porovnávať dáta s VB.NET podľa nasledujúcich niekoľkých jednoduchých krokoch . Veci , ktoré budete potrebovať v Microsoft Visual Basic Express 2010
Visual Studio 2010 , 2008 alebo 2005
Zobraziť ďalšie inštrukcie Cestuj 1

Otvorte Visual Studio alebo VB Express . Vytvoriť nový projekt Visual Basic formuláre systému Windows . Kliknite na " Súbor " a potom " Nový . " Objaví sa okno " New Project " . Zvoľte " Visual Basic , Windows " z pohľadu stromu , a potom vyberte " Form projekt systému Windows . " Názov projektu " DateTest " a kliknite na tlačidlo OK . Po krátkej chvíli sa zobrazí okno Návrhár formulára .
2

Kliknite na ikonu " Toolbox " na paneli nástrojov , a potom čakať na paneli nástrojov otvorte . Pretiahnite " DateTimePicker " do formulára . Kliknite pravým tlačidlom myši na dáta , a potom zvoľte " Vlastnosti " . Pomenujte ju " dtDate , " zmena " Formát " vlastnosť " Short " a " Width " vlastnosť " 100 " . Kliknite na " Escape " kľúč zavrieť " Vlastnosti " okno .
3

Presuňte tlačidlo z panela nástrojov do formulára . Pomenujte ju " btnView , " a zmeňte " Text " vlastnosť " Zobraziť " . Dvakrát kliknite na tlačidlo vytvoriť obslužnú rutinu udalosti , a potom pridajte nasledujúci kód obslužnej rutiny :

Private Sub btnView_Click ( byval sender Ako System.Object , Bývalá e As System.EventArgs ) Kľuky btnView.Click

MsgBox ( dtDate.Value.ToString )

End Sub
4

Kliknite na tlačidlo " F5 " pre spustenie programu . Akonáhle sa zobrazí formulár , kliknite na tlačidlo " Zobraziť " , bez toho aby sa zmenila dátum . Všimnite si, ako aj dátum a čas sa zobrazí , aj keď len dátum sa objavil v " DateTimePicker . "
5

zatvorte program kliknutím na " X " v pravom hornom rohu , a potom prepnúť späť na design pohľad . Pretiahnite ďalšie tlačidlá z panela nástrojov do formulára . Volajte na tlačidlo " btnToday , " a zmeňte vlastnosť text na " Today " . Double - kliknite na tlačidlo " Dnes " vytvoriť ďalšie obslužnú rutinu udalosti , a potom pridajte nasledujúci kód :

Private Sub btnToday_Click ( byval sender Ako System.Object , Bývalá e As System.EventArgs ) Kľuky btnToday.Click

Dim msg As String = " Zadaný dátum ( "

správa a = Date.Today.ToShortDateString

msg & = " ) je "

dtDate.Value < Date.Today Potom

Msg & = " menšie ako "

ElseIf dtDate.Value = Date.Today Potom

msg & = " zápasy "

ElseIf dtDate.Value > Date.Today Potom

msg & = " väčší ako"

End If

msg & = " Dnes ( "

msg & = Date.Today.ToShortDateString

msg & = " ) "

MsgBox ( msg )

End Sub
6

kliknite na " F5 " pre spustenie programu , a potom kliknite na tlačidlo " Dnes " , keď sa objaví formulár . Všimnite si , že správa , ktorá sa zobrazí hovorí , že zadaný dátum ( dnes ) je väčší ako dnes . Opäť platí , že je to spôsobené tým , v čase, keď bol doplnený kontrolou " DateTimePicker " . Fix program zmenou porovnaní takto :

dtDate.Value.Date < na začiatok Date.Today Potom
7

Kliknite na " F5 " ešte raz programu , a potom kliknite na tlačidlo " Dnes " vidieť , že dáta zodpovedajú .

• Predchádzajúca strana: Ako Access VBA vytvoriť tabuľku programu Excel 
• Ďalšia strana: Ako písať Array do súboru v jazyku Visual Basic