1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Três Datas

Discussão em 'Programação' iniciada por SFSS, 19 de Março de 2008. (Respostas: 4; Visualizações: 469)

  1. SFSS

    SFSS Power Member

    Bom dia a todos,

    mais uma vez cá estou eu com uma duvida... Já pesquisei por isto mas só encontro a diferença entre 2 datas com o datediff... Se calhar até é simples o meu problema!!! :)

    Tenho uma tabela que guarda um intervalo de tempo ("de / ate" ex. 10-12-2007 a 06-01-2008). Com a data de hoje "19-03-2008" pretendo saber se está dentro do intervalo definido ou não??!!

    Estou a programar em VB.Net e DB em SQL.

    Obrigado
     
  2. Armadillo

    Armadillo Folding Member

    Código:
            If Now() > "10-12-2007" And Now() < "12-10-2008" Then MsgBox("esta dentro do intervalo definido")
    
    
     
  3. SFSS

    SFSS Power Member

    Between DateTime

    Boas,

    Obrigado. Ia mesmo agora responder a dizer que dei a volta a questão... Lembrei-me dessa solução!!!

    São muitas horas sem dormir em cima, já tenho a cabeça em água.... Tão simples que até doi!!! :-D

    Cumps
     
  4. Armadillo

    Armadillo Folding Member

    vai comer uns chocapics e vai descansar :p

    bom trabalho
    cumprimentos
     
  5. SFSS

    SFSS Power Member

    Já agora deixo aqui o código completo para quem tiver mais que um intervalo na DB.

    Código em VB.NET

    Private Function VerificaData As Boolean
    VerificaData = False
    DIm SQL_Connection as New SQLConnection("ConnectionString")
    Dim SQL_Command as New SQLCommand("SELECT * FROM tab_intervalos",SQL_Connection)

    SQL_Connection.Open
    Dim DataDe As DateTime
    Dim DataAte As DateTime
    Dim DataHoje as DateTime = Format(Date.Now,"dd-MM-yyyy")
    Dim SQL_DReader as SQLDataReader = SQL_Command.ExecuteReader
    While SQL_DReader.Read

    DataDe = SQL_DReader.Item("datade")
    DataAte = SQL_DReader.Item("dataate")
    If DataHoje > DataDe AND DataHoje < DataAte Then VerificaData = True

    End While
    SQL_Connection.Close
    Return VerificaData
    End Function

    Cumps & Obrigado
     
    Última edição: 19 de Março de 2008

Partilhar esta Página