Mostrar aniversariantes 5 dias antes

[Fernando Web 0]

Boa tarde a todos;

 

Tenho um sisteminha de cadastro de clientes e gostaria de mostrar na tela do admin os futuros aniversariantes com 5 dias de antecedencia!!

 

Estou utilizando o seguinte codigo:

 

Function formataData(data,formato,separador)  

data = replace(data,"/","-") 
data = replace(data,".","-")  

if isdate(data)=false then  
Response.write("Data Inválida")  
Response.End() 
end if 

if formato = 1 then  
IntDia = right("0"&day(data),2)  
IntMes = right("0"&month(data),2)  
IntAno = year(data)  

formataData = IntDia&separador&IntMes&separador&IntAno  
elseif formato = 0 then  

IntDia = right("0"&day(data),2)  
IntMes = right("0"&month(data),2)  
IntAno = year(data)  
formataData = IntAno&separador&IntMes&separador&IntDia  

else  

response.write("ERRO") 

end if 
End Function 




varData1 = Date()
varData = formataData(varData1,1,"/")					 

%>

<table border="0" width="558px" cellpadding="4" cellspacing="1" class="BordaTabela"> 
       <%
                      While Not RS_Niver.EOF
                      %>
                      
					  <%
					  
					  varNiver = FormataDado(RS_Niver("data_nascimento_cobranca"),"DATA_NASCIMENTO")
					  
					  if varNiver < varData then
					  %>
                
       <tr class="Linha2Tabela">
                      
                      
                      <td width="300px" colspan="3">
                      <span class="TXTbox">Nome:  <b><%= RS_Niver("nome_cobranca")%></b></span>
                      </td>
                      
                      <td width="258px" colspan="3"> 
                      
                      <span class="TXTbox">Data de Nasc.:  
                      
                      <B>
					  
					  <% Response.Write(varNiver)%>   <% Response.Write(varData)%>

                      </B>
                      
                      </span>
                      
                      </td>
                     
                 
           
        </tr>
 
                      <%
					  end if
					  %>
                      
                      <%
					   RS_Niver.MoveNext
                       Wend
					  %>
    </table>

Ele lista todos os clientes, mas não tenho ideia de como mostrar somente os que farão niver daqui a 5 dias!!!

[Fernando Web 0]

O problema é que a data esta como nvarchar no BD, então que nasceu em 15/01/1988 fica 15011988 no BD!!!

[Mário Monteiro 179]

como está usando tipo de dados errado precisará usar alguma gabiarra para realizar os calculos

[xanburzum 169]

você pode usar o DateAdd, para exibir a data con antecedencia, mas no seu caso você precisa Formatar datas para salvar no banco ou apresentar na tela

olha esta link