Lembrete com DATA e HORA para Terminar

[zanarole 0]

Boa tarde pessoal. Antes de tudo, agradeço aos que, gentilmente, me auxiliarem neste problema!

 

Tenho em um banco de dados uma tabela onde armazeno nela minha agenda das próximas visitas aos meus clientes, sendo que na minha página INDEX.ASP utilizo o código abaixo para me lembrar destes eventos futuros, onde, atualmente, eles saem da página assim que o sistema checa que a data do aviso passou, porém, o aviso só para de ser exibido, apenas quando o dia do lembre passa, precisaria que ele parasse de ser exibido, quando e 2 HORAS depois passassem, por exemplo, hoje é dia 27/08/2013 e se tenho uma reunião agendada para 01/09/2013 às 10:00h, o aviso deve ficar aparecendo em minha página apenas até às 12:00h do dia 01/09/2013.

 

Vejam o código que uso atualmente, nele, só tem a busca pela data, precisaria da busca também pela hora:

 

 

<%

SUB onBancoVisita()

SET bancoVisita = Server.CreateObject("ADODB.Connection")

bancoVisita.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\a3solucoes1\dados\osleo.mdb;Persist Security Info=False"

end SUB

SUB offBancoVisita()

bancoVisita.close : SET bancoVisita = Nothing

end SUB

%>

<%

DIM tbaVisita, sqlVisita

DIM bancoVisita : onBancoVisita

sqlVisita = "" & "SELECT * FROM VISITAS ORDER BY DataVisita ASC"

SET tbaVisita = bancoVisita.execute(sqlVisita)

%>

<%

do while not tbaVisita.eof

databanco = tbaVisita("DataVisita")

databanco = Cdate(databanco)

datahoje = Date

if databanco >= datahoje then

for conta=0 to 10

if conta = 10 then

exit do

call offbancoVisita

end if

%>

<table>

<tr><td><strong><%=tbaVisita("DataVisita")%></strong> (<strong><%response.write weekdayname(weekday(tbaVisita("DataVisita")))%></strong>) às <strong><%=tbaVisita("HoraVisita")%></strong>hs</td></tr>

<tr><td>Visitar <strong><%=tbaVisita("ClienteVisitar")%></strong> para <strong><%=tbaVisita("MotivoVisita")%></strong></td></tr>

<tr><td><strong>Observações </strong>(se houver): <%=tbaVisita("ObsVisita")%></td></tr>

</table>

<%

tbaVisita.movenext

if tbaVisita.eof then

exit do

call offbancoVisita

end if

next

else

end if

tbaVisita.movenext

loop

%>

 

Muito obrigado a TODOS! Um abraço!

[xanburzum 169]

incrementa uma função a parte usando o DateAdd

[zanarole 0]

Boa tarde "xanburzum", obrigado por sua resposta, mas, poderia, por gentileza, mostrar no meu código como incrementaria esta função?

Muito obrigado!

[xanburzum 169]

Exemplo de DateDiff:

Response.Write("A partir de Agora : " & DateDiff("h", "10:00", "08:00") )

 

ele vai te retornar a quantidade de horas das 10 até as 8 que vai ser -2, ai voce coloca a hora final como Time() e a hora inicial a do banco

abaixo segue todos os tipos.

yyyy -> Ano
q -> Quarto
m -> Mês
y -> Dia do Ano
d -> Dia
w -> Dia da semana
ww -> Semana do ano
h -> Hora
n -> Minuto
s -> Segundo

 

e você pode usar o DateDiff direto na SQL, assim você até ganha um pouco de desempenho

 

SELECT DATEDIFF(Hour, @StartDate, @EndDate) AS NewDate

-Valor retornado = 1464 horas

"SELECT * FROM PedidosFinalizados WHERE (DataHora BETWEEN DATEDIFF(hh, - 2, GETDATE()) AND GETDATE() - 0) AND (estatus <> '') AND (Status = 0) AND (Produzir = 0) AND (FormaPagamento = 14)"