Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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!!!
Carregando comentários...