Como comparar uma data com VB.NET

No Visual Basic.Net, a data variável do tipo de lojas tanto a data e hora com uma precisão de menos de um milissegundo. Às vezes isso é difícil de lembrar uma vez que o tipo de dados é simplesmente chamado de uma data. A outra armadilha a lembrar é que o .NET Framework não é sempre consistente ao armazenar datas e às vezes inclui a hora do dia em que parece lógico que apenas 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

Abra o Visual Studio ou VB Express. Criar um novo projeto de formulário do Windows Visual Basic. Clique "Arquivo" Seguido por "Novo." o "Novo projeto" janela irá aparecer. Escolher "Visual Basic, o Windows" do ponto de vista de árvore e, em seguida, escolher "Projeto Windows Form." Nome do projeto "DateTest" e clique em OK. Após uma pequena espera, a janela de forma designer vai aparecer.
Clique no "Caixa de ferramentas" ícone na barra de ferramentas, e depois esperar para a caixa de ferramentas para abrir. arraste um "DateTimePicker" para o formulário. direita; clique na data e, em seguida, escolha "Propriedades." Diga "dtDate," mudar o "Formato" propriedade para "Baixo" e a "Largura" propriedade para "100." Clique no "Escapar" chave para fechar o "propriedades" janela.
Arraste um botão da caixa de ferramentas para o formulário. Diga "btnView," e alterar o "Texto" propriedade para "Visão." Clique duas vezes no botão para criar um manipulador de eventos e, em seguida, adicione o seguinte código para o manipulador:
Private Sub btnView_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Alças btnView.Click
```
MsgBox (dtDate.Value.ToString)End Sub
```
Clique no "F5" chave para executar o programa. Quando o formulário é exibido, clique no "Visão" botão sem alterar a data. Note como a data e hora aparecem mesmo que apenas a data apareceu no "DateTimePicker."

Feche o programa clicando no "X" no canto superior direito, e depois voltar para a vista. 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." Clique duas vezes no "Hoje" botão para criar um outro manipulador de eventos e, em seguida, adicione o seguinte código:

Private Sub btnToday_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Alças btnToday.Click

Dim msg As String = "A data introduzida ("Msg &= Date.Today.ToShortDateString
msg &= ") é "
Se dtDate.Value lt; Date.Today seguida


Msg &= "menos que"
ElseIf dtDate.Value = Date.Today seguida
msg &= "fósforos"
ElseIf dtDate.Value gt; Date.Today seguida
msg &= "Melhor que"
Fim se
msg &= " Hoje ("
msg &= Date.Today.ToShortDateString
msg &= ")"
MsgBox (msg)
End Sub

Clique "F5" para executar o programa e, em seguida, clique no "Hoje" botão quando o formulário é exibido. Observe como a mensagem que aparece diz que a data inserida (hoje) é maior do que hoje. Mais uma vez, esta é causada pelo momento em que foram adicionados pela "DateTimePicker" ao controle. Corrigir o programa, alterando as comparações com a seguinte redacção:
Se dtDate.Value.Date lt; Date.Today seguida
Clique "F5" mais uma vez para iniciar o programa e, em seguida, clique no "Hoje" botão para ver que as datas coincidem.

De esta maneira? Compartilhar em redes sociais: