com verificação de datas

[Adilson_Web_2007 0]

Olá pessoal eu tenho um sistema, e esse sistema ele tem alertas que aparece na tela conforme a data de validade.

 

 

Ele tem que mudae de cor conforme as datas.

 

Por exemplo:

 

90 e 60 dias antes da data ele fica amarelo.

30 dias ele fica vermelho.

 

Eu fiz alguns calculo e deu certo, porem se passar para outro dia ele continua verde.

Não estou conseguindo fazer ficar com as cores correspondentes.

 

Exmplo:

 

Data_verificacao = cdate(rs_datas("data_validade")) - rs_datas("numero") ' rs_datas("numero")  contém o valor correspondes pode ser 90,60,30 de acordo com o alerta

Nessa variavel Data_verificacao ficara a data de validade - 90 dias

 

ai eu faço as verificações.

 

if cdate(Data_verificacao) = date   and rs_datas("numero") = 90 then%>
<td  class="hintSource" valign="center"><div class="GridCellInner OverflowHidden" ><div align="center"><img src="icons/Alerts/yellow_alert.png"></div></div></td>
<%
Else
  if cdate(Data_verificacao) = date and rs_datas("numero") = 60 then
  %>
<td  class="hintSource" valign="center"><div class="GridCellInner OverflowHidden" ><div align="center"><img src="icons/Alerts/yellow_alert.png"></div></div></td>  
  <%
  Else
	if cdate(Data_verificacao) = date and rs_datas("numero") = 30 then
	%>
	  <td  class="hintSource" valign="center"><div class="GridCellInner OverflowHidden" ><div align="center"><img src="icons/Alerts/red_alert.png"></div></div></td>
	<%
	Else
	   if Cdate(rs_datas("data_validade"))  = date  or rs_datas("igual") = "SIM"   then
	   %>
		 <td  class="hintSource" valign="center"><div class="GridCellInner OverflowHidden" ><div align="center"><img src="icons/Alerts/red_alert_nodata.png"></div></div></td>
	   <%
	   Else
	   %>
		 <td  class="hintSource" valign="center"><div class="GridCellInner OverflowHidden" ><div align="center"><img src="icons/Alerts/green_alert.png"></div></div></td>
	   <%
	   End if
	End if
  End if
end if

Do jeito que está ele mostra o alerta só no dia , mas eu gostaria de o alerta ficasse até terminar sua validade.

[Mário Monteiro 179]

nao pode usar igual tem que usar faixas com >= ou <= conforme o caso

[Adilson_Web_2007 0]

beleza vou tentar aqui!

 

So para eu começar você teria uma ideia de como começar por favor?

[Mário Monteiro 179]

me explica melhor a logica

 

Voce tem uma data e quer dar avisos conforme se aproxima dela?

[Adilson_Web_2007 0]

Isso vamos supor tem eu tenha a data do registro é: 11/07/2008 e a data de validade é: 09/10/2008.

 

Quando faltar 90 ou 60 dias para a data de validade eu gostaria que o alerta fique amarelo. Mas se passar eu gostaria que continuasse amarelo. Pois no último dia eu tiro esse alerta.

 

se faltar 30 dias data de validade eu gostaria que ficasse vermelho. Mas se passar eu gostaria que continuasse amarelo. Pois no último dia eu tiro esse alerta.

 

a logica que eu fiz ele so mostra no dia se passar ele volta a ficar verde.

 

Obrigado pela força.

[Mário Monteiro 179]

Basicamente seria

 

SELECT CASE DataValidade
CASE IS < Date: Response.write("Vermelho")
CASE IS < DATEADD("d",30,Date): Response.write("Vermelho")
CASE IS < DATEADD("d",90,Date): Response.write("Amarelo")
END SELECT

Teste para ver se ta calculando correto e escrevendo a cor

 

Nao testei em servidor entao pode conter erros

 

Armazene a data da validade em uma variavel com o nome usado acima

[Adilson_Web_2007 0]

Ai deu esse erro aqui

 

Erro de compilação do Microsoft VBScript erro '800a03ea'

 

Erro de sintaxe

 

/pesquisar_ato.asp, line 828

 

CASE IS < Date:

-----^

[Mário Monteiro 179]

nao lembro a sintaxe do Select case para este caso no VB é assim

 

Tente sem o IS

 

SELECT CASE DataValidade
CASE < Date: Response.write("Vermelho")
CASE < DATEADD("d",30,Date): Response.write("Vermelho")
CASE < DATEADD("d",90,Date): Response.write("Amarelo")
END SELECT