Ir para conteúdo
Fórum Script Brasil
  • 0

CÁLCULO ENTRE DATAS


saulo.ribeiro

Pergunta

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.

Editado por kuroi
Adicionar tag CODE
Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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
%>

Editado por Marcelo_2
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...