[Resolvido] Comparando Datas no VB9

[Thiago_MDTech 0]

Boa tarde,Preciso de uma ajuda. Estou tentando comparar datas, porém não estou conseguindo, pois quero saber se as datas são iguais. Existe alguma coisa no VB q ajude nessa comparação.O meu código é bem simples, eu fiz uma função pois irei usar em outras partes do programa, o objdt pega os feriados cadastrados no banco de dados:

 

Public Function feriado(ByVal data As String) As Boolean
        Dim objdt As DataTable
        objdt = pesquisa("data_feri", "feriado")
        For conta = 0 To objdt.Rows.Count - 1
            If data = objdt.Rows(conta).Item(0) Then
                Return True
                Exit Function
            Else
                Return False
            End If
        Next
    End Function

Desde já agradeço a ajuda. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

Thiago

[Careca 0]

Boa tarde,Preciso de uma ajuda. Estou tentando comparar datas, porém não estou conseguindo, pois quero saber se as datas são iguais. Existe alguma coisa no VB q ajude nessa comparação.O meu código é bem simples, eu fiz uma função pois irei usar em outras partes do programa, o objdt pega os feriados cadastrados no banco de dados:

 

Public Function feriado(ByVal data As String) As Boolean

Dim objdt As DataTable

objdt = pesquisa("data_feri", "feriado")

For conta = 0 To objdt.Rows.Count - 1

If data = objdt.Rows(conta).Item(0) Then

Return True

Exit Function

Else

Return False

End If

Next

End Function

 

Desde já agradeço a ajuda. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

Thiago

 

Agora sim

Dim TheDate As Date ' Declare variables.
Dim Msg
TheDate = InputBox("Enter a date")
Msg = "Days from today: " & DateDiff("d", Now, TheDate)
MsgBox Msg

[Thiago_MDTech 0]

 

Agora sim

Dim TheDate As Date ' Declare variables.

Dim Msg

TheDate = InputBox("Enter a date")

Msg = "Days from today: " & DateDiff("d", Now, TheDate)

MsgBox Msg

 

Desculpa, mas não entendi a resposta. :huh:

 

Thiago

[quintelab 91]

Movido Visual Basic http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Plataforma .NET > Windows Applications

[Thiago_MDTech 0]

 

Public Function feriado(ByVal data As String) As Boolean
        Dim objdt As DataTable
        objdt = pesquisa("data_feri", "feriado")
        For conta = 0 To objdt.Rows.Count - 1
            If data = objdt.Rows(conta).Item(0) Then
                Return True
                Exit Function
            Else
                Return False
            End If
        Next
    End Function

 

Olá Fiz mais alguns testes e esse código funcionou...

Não sei o q estava errado, mas quando fiz o debug ele funcionou.

 

[]'s

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif