CÁLCULO ENTRE DATAS

saulo.ribeiro · January 19, 2012

Pessoal,

Estou com um problema em utilizar o DateDiff para calcular quantos dias faltam para determinado evento. O usuário irá cadastrar no BD as datas das próximas reuniões e o sistema deverá mostrar no site quantos dias faltam para a próxima reunião. Segue o código abaixo para melhor entendimento.

o campo data_reuniao vem do Access e está formatado como Data, já tentei como texto e número, porém não dá o cálculo correto. A data atual será a do servidor.

+++++++++++++++++++++++++++++++++++++++++++++++++++++++

<%
dbName = "db/dados.mdb"
Conn= "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath(dbName)
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sSQL = "Select * from reuniao order by cod DESC"
rs.open sSQL, Conn,3,3

Session.LCID = 1046 'Brasil

data_atual = CDate(FormatDateTime((Date),2))
data_futura = CDate(FormatDateTime((data_reuniao),2))

data_restante = DateDiff("D", data_futura, data_atual )

rs.close
Set rs = nothing
%>
%> 
<center><b>Hoje é <%=date%><BR>
Falta(m) <font color=red><%=data_restante%></font> dia(s) para a próxima reunião.</b></center>

+++++++++++++++++++++++++++++++++++++++++++++++++++++++

Se alguém puder me ajudar, desde já agradeço.

Edited January 21, 2012 by kuroi
Adicionar tag CODE

Rafael Spilki · January 20, 2012

Dá um debug como no trecho abaixo... as datas devem estar em formatos esquisitos...

data_atual = CDate(FormatDateTime((Date),2))
data_futura = CDate(FormatDateTime((data_reuniao),2))

'inicio debug
response.write "data_atual = " & data_atual & "<br>"
response.write "data_futura = " & data_futura  & "<br>"
response.end
'fim debug

data_restante = DateDiff("D", data_futura, data_atual )

[]'s Rafael Spilki

saulo.ribeiro · January 20, 2012

Debuguei e realmente, a variável data_futura está com o formato estranho, segue:

data_atual = 20/1/2012

data_futura = 00:00:00

Como fazer para formatá-la corretamente? Pode me ajudar?

Obrigado!!!

Marcelo_2 · January 21, 2012

cara.. de boa.. de cara você trocou os parametros da DateDiff;

mas tem mais umas coisinhas q seria legal você arrumar..

tipo tem 1 tag de fechamento (%>) a mais... tb tenta usar isso:

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

p/ acentuação.. bom.. v ahe:

<%
dbName = "db/dados.mdb"
Conn= "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath(dbName)
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sSQL = "Select * from reuniao where Código=3"
rs.open sSQL, Conn,3,3

data_atual = CDate(FormatDateTime((Date),2))
data_futura = CDate(FormatDateTime((rs.Fields.Item("data_reuniao").Value),2))

data_restante = DateDiff("D", data_atual, data_futura )

%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Reuniões futuras</title>
</head>

<body>
<center><b>Hoje é <%=date%><BR>
Falta(m) <font color=red><%=data_restante%></font> dia(s) para a próxima reunião.</b></center>

</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>

Edited January 21, 2012 by Marcelo_2

Sign In

CÁLCULO ENTRE DATAS

Question

saulo.ribeiro

Link to comment

Share on other sites

3 answers to this question

Recommended Posts

Rafael Spilki

Link to comment

Share on other sites

saulo.ribeiro

Link to comment

Share on other sites

Marcelo_2

Link to comment

Share on other sites

Join the conversation

Forum Statistics

Browse

Activity