Data E Hora

[korvo]

O problema não é gravar a data, e sim, mostra-la, ajustando com o horário com o fuso horário de Brasília (-5h)

<%@ Language=VBScript %>
<%
dbfile=Server.MapPath("guestbook.mdb") 
Set OBJdbConnection=Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile

Set rs = Server.CreateObject("ADODB.Recordset")
sql=  "SELECT * FROM comment ORDER BY Id Desc;"
rs.Open sql, OBJdbConnection, 3, 3

%>

<%
While Not rs.EOF
 Response.Write("<table width=463 border=0 cellpadding=0 cellspacing=0><tr><td align=left>" )
 Response.Write("::. Registro n°: " & rs.fields("id") & "" )
 Response.Write("</td><td align=right>" & rs.fields("data") & "</td></tr><tr><td colspan=2>" )
 Response.Write("<font face='Verdana' size=2>Nome: <a href='mailto:" & rs.fields("email") & "'>" & rs.fields("name") & "</a></font>" )
 Response.Write("</td></tr><tr><td align=left colspan=2 bgcolor=#FFFFFF>" )
 Response.Write("<p align=justify>" & rs.fields("comment") & "</p>" )
 Response.Write("</td></tr><tr><td colspan=2 align=center bgcolor=#FF0000>" )
 Response.Write(" " & rs.fields("cidade") & " - " & rs.fields("estado") & "</td></tr><table>" )

 rs.movenext
 Response.Write("<br><hr width=463 color=#000000 size=2><br>" )
Wend
%>

<%

set rs = Nothing
OBJdbConnection.Close 
set OBJdbConnection = Nothing

%>

[Bicicleta]

<% Session.LCID = 1046 %>

Formato de Data e Hora no formato brasileiro... Coloca isso no topo da pg.

[dark0]

Amigo. porque você não cria um campo de hora, e outro de data?

assim, quando você for mostrar, você faz um IF, e diminui ou aumenta as horas de diferença do fuso.

não serve?

Se não souber como pegar a data e a hora separados, leia o tópico de funções.

Tem algumas que fazem isso la

Abraços

[Victor]

Você pode usar a função now, já grava a data e a hr junto, você n precisa fazer outra coluna no bd

[mariofdf]

Voce quer subtrair 5 horas, se for isso

faça assim,

em vez de

" & rs.fields("data") & "

faça assim

data = cdate(rs.fields("data"))-5
Response.Write("::. Registro n°: " & rs.fields("id") & "" )
Response.Write("</td><td align=right>" & data &"</td></tr><tr><td 

qualquer coisaé so postar.

[korvo]

BINGO!!!

Mario, você deu a luz! Consegui diminuir 5 horas das datas. Mas não é o -5 q diminui as 5 horas e sim alguns calculos.

se eu colocar só o 5, vou diminuir 5 dias.

entaum, dividi o dia em 24 horas. aí multipliquei por 5. o resultado deu 0.2083333333333333333333

no código ficaria

data = cdate(rs.fields("data"))-0.2083333333333333333333333

[Guest Guest]

Coloquei dias pensando que era horas, mas é isso mesmo que tem de ser feito, se sua duvida foi sanada pessa que feixe o tópico.

[mariofdf]

sou eu ai em cima....

[korvo]

ok, corrigindo, depois de algumas 50 tentativas, o número certo pra diminuir 5 horas, de acordo com hora registrada no bd, fica certo o numero -0.21565 sincronizando até os segundos.

pode fecha o pacote já!

[Victor]

<%date() -5%>

...Você pode usar essa função!!!

[[ GuTo ]]

<%date() -5%>

...Você pode usar essa função!!!

Não! Isso diminuirá 5 dias! Faça

Date - (1/24) * 5
'Data - (1dia/24) vezes 5
'Data - (1hora) * 5
'Data - 5horas
'Sua data subtraiada de 5 horas corretamente!

[korvo]

Vivendo e aprendendo...

já pode fechar a discução.

[Victor]

Korvo, caso tenha mais alguma dúvida é so gritat que nós te ajudaremos no que puder!!

[]'s

Victor

[korvo]

td bem, mais uma vez fechando o assunto, parece q entendi o funcionamento do forum... alguns aparecem boiando no assunto... outros tentar responder o q já foi respondido... e no final vai somando os Posts e vão subindo de nivel...