none
Valida data RRS feed

  • Pergunta

  • Como eu faço para se alguém digitar a data limite antes da data inicial aparecer a mensagem "Data Limite inferior a data inicial"?

    segunda-feira, 28 de julho de 2014 16:18

Respostas

  • Tente o seguinte aqui funcionou:

    Dim dataini As DateTime
            Dim datalimite As DateTime

            dataini = tbdataini.Text
            datalimite = tbdatafim.Text

            If datalimite < dataini Then
                MsgBox("Data final inferior a data inicial")
            Else
                MsgBox("Não é menor")
            End If

    • Sugerido como Resposta Edenilson Bila segunda-feira, 28 de julho de 2014 17:01
    • Marcado como Resposta MikaPinheiro segunda-feira, 28 de julho de 2014 17:29
    segunda-feira, 28 de julho de 2014 17:00

Todas as Respostas

  • Nesse artigo ensina como fazer.

    http://www.devmedia.com.br/regular-expressions-validando-data-em-c-parte-2/17710


    Por favor, lembre-se de “Marcar como Resposta” as respostas que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 28 de julho de 2014 16:37
  • Tente o seguinte aqui funcionou:

    Dim dataini As DateTime
            Dim datalimite As DateTime

            dataini = tbdataini.Text
            datalimite = tbdatafim.Text

            If datalimite < dataini Then
                MsgBox("Data final inferior a data inicial")
            Else
                MsgBox("Não é menor")
            End If

    • Sugerido como Resposta Edenilson Bila segunda-feira, 28 de julho de 2014 17:01
    • Marcado como Resposta MikaPinheiro segunda-feira, 28 de julho de 2014 17:29
    segunda-feira, 28 de julho de 2014 17:00
  • Onde eu coloca essa parte?

    dataini = tbdataini.Text
            datalimite = tbdatafim.Text

            If datalimite < dataini Then
                MsgBox("Data final inferior a data inicial")
            Else
                MsgBox("Não é menor")
            End If

    no botao valida?

    • Marcado como Resposta MikaPinheiro segunda-feira, 28 de julho de 2014 17:29
    • Não Marcado como Resposta MikaPinheiro segunda-feira, 28 de julho de 2014 17:29
    segunda-feira, 28 de julho de 2014 17:14
  • sim, MikaPinheiro, clique duas vezes sobre o botão direito e coloque este texto la dentro.

    Lembre-se de certificar se a propriedade "name" dos seus textbox estão com o nome "tbdataini" e "tbdatafim".

    Pois, o autor da resposta, deu estes nomes para os botões de data inicio e data fim, respectivamente.

    Portanto, provavelmente, o nome do seu textbox deve estar diferente em seu código. Ou seja, renomeie seus textbox para os nome que o autor colocou (tbdataminin => textbox da data inicio; e tbdatafim => textbox da data fim) na resposta, ou substitua-os pelos nomes respectivos dos componentes do seu formulário.

    segunda-feira, 28 de julho de 2014 17:19
  • Obrigada
    • Editado MikaPinheiro segunda-feira, 28 de julho de 2014 17:29
    segunda-feira, 28 de julho de 2014 17:25