FORMATACAO DE DATAS

WEBIER 13/10/2009 10:07:12
#325145
tenho o seguinte código:

Set Conn= server.createobject([Ô]adodb.connection[Ô])
DSNtest = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & Server.Mappath([Ô]dados/dados.mdb[Ô])
Conn.Open DSNtest


Set RS= Server.CreateObject([Ô]ADODB.Recordset[Ô]) [ô]acrescentei por causa da paginação
SQL = [Ô]SELECT * FROM noticias ORDER BY id desc[Ô]

RS.Open SQL, conn, 3

<table cellspacing=[Ô]0[Ô] width=[Ô]100%[Ô] bordercolordark=[Ô]white[Ô] bordercolorlight=[Ô]black[Ô] align=[Ô]center[Ô] cellpadding=[Ô]0[Ô]>
        <tr> 
          <td width=[Ô]569[Ô]><a href=[ô]mostra.asp?noticias=<%=Rs([Ô]id[Ô])%>&Classe=<%Response.Write Classe%>[ô]>
          <font face=[Ô]Arial[Ô] color=[Ô]silver[Ô] size=[Ô]1[Ô]> 
          <%=Rs([Ô]data[Ô])%> 
          </font> <font face=[Ô]Arial[Ô] color=[Ô]black[Ô] size=[Ô]1[Ô]> -
          <%=Rs([Ô]Topico[Ô])%></a></font></td>
        </tr>
        <tr> 
          <td width=[Ô]569[Ô]> <p style=[Ô]line-height:50%; margin-top:0; margin-bottom:0;[Ô] align=[Ô]center[Ô]> </p></td>
        </tr>
      </table>



Como faria para formatar a exibição desse campo DATA para dd/mm/yy ?
TECLA 13/10/2009 10:26:22
#325151 Resposta escolhida
Tente assim:

<%=Format(Rs([Ô]data[Ô]), [Ô]dd/mm/yy[Ô])%>
WEBIER 13/10/2009 10:43:20
#325153
deu o seguinte erro:

Script error detected at line 121.
Source line: Response.Write Format(Rs([Ô]data[Ô]), [Ô]dd/mm/yy[Ô])
Description: Tipos incompatíveis: [ô]Format[ô]
TECLA 13/10/2009 10:56:24
#325155
Experimente o FormatDateTime:

<%=FormatDateTime(Rs([Ô]data[Ô]), 2)%>
WEBIER 13/10/2009 11:10:29
#325156
nao deu erro mais nao, mas tb nao ficou no formato que eu queria nao...

ficou 3/7/2009 e eu queria 03/07/09
TECLA 13/10/2009 11:20:37
#325157
Acredito que só fazendo uma POG...

Dim data, dia, mes, ano
data = Rs([Ô]data[Ô])
dia = day(data)
mes = month(data)
ano = right(year(data), 2)
response.Write(dia & [Ô]/[Ô] & mes & [Ô]/[Ô] & ano)


...ou alterando o FORMATO de DATA no PAINEL DE CONTROLE (Opções Regionais)
WEBIER 14/10/2009 21:02:22
#325353
fiz assim:

Dim data, dia, mes, ano
data = <%=Rs([Ô]data[Ô])%>
dia = day(data)
mes = month(data)
ano = right(year(data), 2)
response.Write(dia & [Ô]/[Ô] & mes & [Ô]/[Ô] & ano)

      </p>
      <table cellspacing=[Ô]0[Ô] width=[Ô]100%[Ô] bordercolordark=[Ô]white[Ô] bordercolorlight=[Ô]black[Ô] align=[Ô]center[Ô] cellpadding=[Ô]0[Ô]>
        <tr> 
          <td width=[Ô]569[Ô]><a href=[ô]mostra.asp?noticias=<%=Rs([Ô]id[Ô])%>&Classe=<%Response.Write Classe%>[ô]>
          <font face=[Ô]Arial[Ô] color=[Ô]silver[Ô] size=[Ô]1[Ô]> 
          <%response.Write(dia & [Ô]/[Ô] & mes & [Ô]/[Ô] & ano)%>
          </font> <font face=[Ô]Arial[Ô] color=[Ô]black[Ô] size=[Ô]1[Ô]> -
          <%=Rs([Ô]Topico[Ô])%></a></font></td>
        </tr>


ai aparece em formato de texto o erro:

Dim data, dia, mes, ano data = 12/10/2009 dia = day(data) mes = month(data) ano = right(year(data), 2) response.Write(dia & [Ô]/[Ô] & mes & [Ô]/[Ô] & ano)


o que estou fazendo de errado?
WEBIER 29/10/2009 15:41:55
#326527
alguem?
WEBIER 05/11/2009 18:59:08
#327063
alguem?
ALFTERRA 05/11/2009 23:55:17
#327074
Opa! coloca o identificador de código asp <% e quando terminar indica o fim %>

<%
[ô]inicio de codigo ASP

Dim data, dia, mes, ano
data = Rs([Ô]data[Ô])
dia = day(data)
mes = month(data)
ano = year(data)

if dia < 10 then
dia = [Ô]0[Ô] & dia
end if

if mes < 10 then
mes = [Ô]0[Ô] & mes
end if

response.Write(dia & [Ô]/[Ô] & mes & [Ô]/[Ô] & ano)

[ô]fim do codigo ASP
%>

tomara que funfe..........aki funfou.......
WEBIER 07/11/2009 11:55:24
#327136
ALFTERRA funcionou blz.... obrigado cara!

Como eu faço pra converter o ano pra 2 digitos?

eu tentei
ano = format(year(data), [Ô]yy[Ô])
e nao deu!
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar