SABER SE ESTA CHEGANDO UMA DETERMINADA DATA

ALEXLUGON 07/12/2009 09:37:34
#329266
bom dia,

Goastaria de saber o seguinte, tenho uma data cadastrada no banco de dados e gostaria de mostrar apenas as datas que faltar menos de 90 dias para completar 1 ano

como consigo fazer isso pessoa?
TECLA 07/12/2009 09:45:27
#329268
Tente assim:

Dim dataBanco As Date, data As Date
dataBanco = #10/1/2009#[txt-color=#006400] [ô] 1 de outubro de 2009[/txt-color]
data = #12/31/2009# [txt-color=#006400][ô] 31 de dezembro de 2009[/txt-color]
MsgBox DateDiff([Ô]d[Ô], dataBanco, data), , [Ô]Diferença em dias[Ô]
EDERMIR 07/12/2009 10:37:41
#329269
Citação:

TECLA escreveu:
Tente assim:

Dim dataBanco As Date, data As Date
dataBanco = #10/1/2009#[txt-color=#006400] [ô] 1 de outubro de 2009[/txt-color]
data = #12/31/2009# [txt-color=#006400][ô] 31 de dezembro de 2009[/txt-color]
MsgBox DateDiff([Ô]d[Ô], dataBanco, data), , [Ô]Diferença em dias[Ô]


DATEDIFF é a função que realiza operações entre datas.
Como o TECLA mostrou, você calcula quantos dias existem entre duas datas.

A pergunta é a seguinte:
Como são as datas?
São datas futuras ou datas passadas (aniversários)?

Sendo datas passadas, você deve transforma-las em datas futuras (alterar o ano) para depois verificar ser faltam 90 dias.
SURFMANPR 07/12/2009 17:21:53
#329303
O Ano tem 365 Dias e vc precisa saber tudo que que irá vencer em (365 dias - 90 dias) = 275 dias.
Sendo assim e suspeitando que vc irá utilizar um SQL Server(vc não citou o banco).
Tente utilziar a seguinte instrução:

  SELECT *
FROM TABELA
WHERE DATEDIFF(DAY, CAMPO_DATA, GETDATE()) = 275;


Fazendo diretamente no Banco de dados, não será necessário percorrer todos os registros para trazer os itens [Ô]vencidos[Ô].
Espero ter ajudado!
Tópico encerrado , respostas não são mais permitidas
Voltar