Come confrontare una data con VB.NET

March 15

In Visual Basic.Net, la data di tipo memorizza variabili sia la data e l'ora con una precisione di meno di un millisecondo. A volte questo è difficile da ricordare poiché il tipo di dati è chiamato semplicemente una data. L'altra insidia da ricordare è che il .Net Framework non è sempre coerente quando si memorizza date e talvolta include l'ora del giorno in cui sembra logico che solo la data deve essere conservato. Fortunatamente, è possibile confrontare facilmente un appuntamento con VB.NET, seguendo alcuni semplici passaggi.

istruzione

1 Aprire Visual Studio o Visual Basic Express. Creare un nuovo progetto di Windows modulo di Visual Basic. Fai clic su "File" seguito da "Nuovo". Apparirà la finestra "Nuovo progetto". Scegliere "Visual Basic, Windows" dalla vista ad albero, e quindi scegliere "progetto Windows Form." Nome del progetto "DateTest" e fare clic su OK. Dopo una breve attesa, viene visualizzata la finestra di progettazione form.

2 Fare clic sull'icona "Toolbox" sulla barra degli strumenti, e quindi attendere che la casella degli strumenti per aprire. Trascinare un "DateTimePicker" nel form. Fai clic destro sulla data, quindi selezionare "Proprietà". Il nome "dtDate," cambia la proprietà "Format" a "breve" e la proprietà "Larghezza" a "100" Fare clic sul tasto "Escape" per chiudere la finestra "Proprietà".

3 Trascinare un pulsante dalla casella degli strumenti nel form. Il nome "btnView," e modificare la proprietà "Testo" a "Visualizza". Fare doppio clic sul pulsante per creare un gestore di eventi, e quindi aggiungere il seguente codice al gestore:

Private Sub btnView_Click (ByVal sender As System.Object, ByVal e come System.EventArgs) tratta btnView.Click

MsgBox(dtDate.Value.ToString)

End Sub

4 Premere il tasto "F5" per eseguire il programma. Quando viene visualizzato il modulo, fare clic sul pulsante "Visualizza" senza cambiare la data. Si noti come sia la data e l'ora appaiono, anche se solo la data è apparso nel "DateTimePicker."

5 Chiudere il programma facendo clic sulla "X" in alto a destra, e poi tornare alla visualizzazione progettazione. Trascinare un altro pulsante dalla casella degli strumenti al form. Chiamare il pulsante "btnToday," e modificare la proprietà Text a "Oggi". Fare doppio clic sul pulsante "Oggi" per creare un altro gestore di eventi, e quindi aggiungere il codice seguente:

Private Sub btnToday_Click (ByVal sender As System.Object, ByVal e come System.EventArgs) tratta btnToday.Click

Dim msg As String = "The date entered ("

Msg & = Date.Today.ToShortDateString

msg & = ") è"

Se dtDate.Value & lt; Poi Date.Today

Msg & = "meno"

ElseIf dtDate.Value = Date.Today Poi

msg & = "partite"

ElseIf dtDate.Value> Date.Today Poi

msg & = "superiore"

Finisci se

msg & = "Oggi ("

msg & = Date.Today.ToShortDateString

msg & = ")"

MsgBox (msg)

End Sub

6 Fai clic su "F5" per eseguire il programma, e quindi fare clic sul pulsante "Oggi" quando viene visualizzato il form. Si noti come il messaggio che appare dice che la data di entrata (oggi) è maggiore rispetto ad oggi. Di nuovo, questo è causato dal momento che è stato aggiunto dal controllo "DateTimePicker". Fissare il programma modificando i confronti come segue:

Se dtDate.Value.Date <Date.Today Poi

7 Fai clic su "F5" ancora una volta per avviare il programma, e quindi fare clic sul pulsante "Oggi" per vedere che le date coincidono.