Em Visual Basic.Net , as lojas do tipo variável de data a data ea hora com uma precisão de menos de um milésimo de segundo. Às vezes isso é difícil de lembrar uma vez que o tipo de dados é chamado simplesmente de uma data. A outra armadilha para se lembrar é que o Net Framework . Nem sempre é consistente ao armazenar datas e às vezes inclui a hora do dia em que parece lógico que somente a data deve ser armazenado. Felizmente, você pode facilmente comparar uma data com VB.NET , seguindo alguns passos simples. Coisas que você precisa
Microsoft Visual Basic Express 2010
Visual Studio 2010, 2008 ou 2005
Show Mais instruções
1

Abra o Visual Studio ou VB Express. Criar um novo projeto de formulário do Windows Visual Basic . Clique em "Arquivo ", seguido de "New". A janela "New Project " irá aparecer. Escolha " Visual Basic, Windows" a partir da exibição de árvore , e depois escolher "Projeto Windows Form. " Nomeie o projeto " DateTest " e clique em OK. Após uma pequena espera , a janela de designer de formulário aparecerá.
2

Clique no ícone " Ferramentas " na barra de ferramentas , e depois esperar para a caixa de ferramentas para abrir . Arraste um " DateTimePicker " para o formulário. Botão direito do mouse sobre a data e , em seguida, escolha a opção " Propriedades". Nomeie-o " dtDate ", altere a propriedade " Format" para "Short " ea propriedade "largura " para " 100 ". Clique na tecla "Escape" para fechar a janela "Propriedades" .
3

Arraste um botão da caixa de ferramentas para o formulário. Nomeie-o " btnView ", e alterar a propriedade "texto" para "View ". Dê um duplo clique no botão para criar um manipulador de eventos , em seguida, adicione o seguinte código para o manipulador :

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

MsgBox ( dtDate.Value.ToString )

End Sub
4

Clique na tecla "F5" para executar o programa . Quando o formulário for exibido, clique no botão "Exibir" , sem alterar a data. Note como a data ea hora aparecem mesmo que apenas a data apareceu no " DateTimePicker ".
5

Feche o programa , clicando no "X" no canto superior direito, e depois voltar para exibição de design . Arraste outro botão da caixa de ferramentas para o formulário. Chame o botão " btnToday ", e altere a propriedade de texto para "Hoje". Dê um duplo clique no botão "Today" para criar outro manipulador de eventos e , em seguida, adicione o seguinte código : Private Sub

btnToday_Click (sender System.Object , ByVal e As System.EventArgs ) Handles btnToday.Click

Dim msg As String = " A data inserida ( "

Msg & = Date.Today.ToShortDateString

msg & = " ) é "

Se dtDate.Value < Date.Today Então

Msg & = "menos do que "

ElseIf dtDate.Value = Date.Today Então

msg & = " partidas "

ElseIf dtDate.Value > Date.Today Então

msg & = "maior que"

End If

msg & = "Hoje ("

msg & = Date.Today.ToShortDateString

msg & = ")"

MsgBox ( msg)

End Sub
6

Clique em " F5" para executar o programa e, em seguida, clique no botão "Today" , quando o formulário é exibido. Note como a mensagem que aparece diz que a data inserida (hoje) é maior do que hoje. Novamente , isto é causado pelo tempo que foi adicionado pelo controle " DateTimePicker " . Corrigir o programa , alterando as comparações com a seguinte redacção :

Se dtDate.Value.Date < Date.Today Então
7

Clique em " F5 " mais uma vez para iniciar a programa e , em seguida, clique no botão "Today" para ver que as datas coincidem.