Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Alessancost

Data

Por , em ASP Clássico

Recommended Posts

Alessancost    0

Alessancost
Postado

Olá!!!

Estou de posse de um código .asp que apresenta a data desta maneira (quarta-feira, 5 de janeiro de 2005) e desejo que ela fique assim (5/01/2005).

O código referente à data e esse " & FormatDateTime(dtmPreviousPollQuestionDate, VbLongDate) & "

O que eu devo fazer? Obrigado

;)

Compartilhar este post

Link para o post
Compartilhar em outros sites

DackAle    0

DackAle
Postado

mas no caso você quer converter esta data que ja existe ou quer começar a usar as datas no formato que você mostrou ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

rOcKLoCo    0

rOcKLoCo
Postado

Olá!!!

Estou de posse de um código .asp que apresenta a data desta maneira (quarta-feira, 5 de janeiro de 2005) e desejo que ela fique assim (5/01/2005).

O código referente à data e esse " & FormatDateTime(dtmPreviousPollQuestionDate, VbLongDate) & "

O que eu devo fazer? Obrigado

;)

cara, tira o formtdatetime

 

e ficaria assim

 

dtmPreviousPollQuestionDate

 

e pra você formatar para brasileiro, você pode usar uma função

http://www.aspclube.net/funcoes.asp?tecnol...313-0238109767}

 

falows

Compartilhar este post

Link para o post
Compartilhar em outros sites

Alessancost    0

Alessancost
Postado

Olá!!!

Estou de posse de um código .asp que apresenta a data desta maneira (quarta-feira, 5 de janeiro de 2005) e desejo que ela fique assim (5/01/2005).

O código referente à data e esse " & FormatDateTime(dtmPreviousPollQuestionDate, VbLongDate) & "

O que eu devo fazer? Obrigado

;)

cara, tira o formtdatetime

 

e ficaria assim

 

dtmPreviousPollQuestionDate

 

e pra você formatar para brasileiro, você pode usar uma função

http://www.aspclube.net/funcoes.asp?tecnol...313-0238109767}

 

falows

Eu tirei, mas apresentou erro...

 

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A03EE)

')' esperado

/blog/Jus eundi/enquete/enquete_anteriores.asp, line 65, column 110

Response.Write vbCrLf & " <td align=""right"" class=""fonte1"" height=""25"">" & (dtmPreviousPollQuestionDate, VbLongDate) & "</td>"

:(

Compartilhar este post

Link para o post
Compartilhar em outros sites

Alessancost    0

Alessancost
Postado

Para um melhor entendimento, estou postando o meu código abaixo:

 

<% Option Explicit %>

<% Response.Buffer = True %>

<%

Dim adoCon

Dim rsWeeklyPoll

Dim strCon

Dim strAccessDB

Dim strSQL

Dim strPreviousPollQuestion

Dim intPreviousPollQuestionID

Dim dtmPreviousPollQuestionDate

Dim intRecordPositionPageNum

Dim intRecordLoopCounter

 

Const intRecordsPerPage = 28

 

If Request.QueryString("pagina") = "" Then

intRecordPositionPageNum = 1

 

Else

intRecordPositionPageNum = CInt(Request.QueryString("pagina"))

End If

%>

<html>

<head>

<title>Enquetes anteriores</title>

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

<link href="../estilo.css" rel="stylesheet" type="text/css">

</head>

<body bgcolor="#FFFFFF" text="#000000" link="#000000" vlink="#000000" alink="#000000" leftmargin="00" topmargin="00" marginwidth="00" marginheight="00">

<table width="500" border="0" cellspacing="0" cellpadding="0">

<tr>

<td width="95%" height="1"><table width="100%" border="0" cellspacing="0" cellpadding="1">

<%

strAccessDB = "../bancos/enquete"

 

Set adoCon = Server.CreateObject("ADODB.Connection")

Set rsWeeklyPoll = Server.CreateObject("ADODB.Recordset")

 

strCon="DRIVER={Microsoft Access Driver (*.mdb)};"

 

strCon = strCon & "DBQ=" & Server.MapPath(strAccessDB)

 

strSQL = "SELECT * FROM dados "

strSQL = strSQL & " ORDER By dados.id_no DESC;"

 

rsWeeklyPoll.Open strSQL, strCon, 3

 

rsWeeklyPoll.PageSize = intRecordsPerPage

 

If NOT rsWeeklyPoll.EOF Then rsWeeklyPoll.AbsolutePage = intRecordPositionPageNum

 

For intRecordLoopCounter = 1 to intRecordsPerPage

 

If rsWeeklyPoll.EOF Then Exit For

 

intPreviousPollQuestionID = CInt(rsWeeklyPoll("id_no"))

 

strPreviousPollQuestion = rsWeeklyPoll("Question")

 

dtmPreviousPollQuestionDate = rsWeeklyPoll("Date")

 

Response.Write vbCrLf & " <tr>"

Response.Write vbCrLf & " <td height=""26"" class=""fonte1"" height=""25"" background=""img/01_linha_02.gif""><a href=""enquete.asp?PollID=" & intPreviousPollQuestionID & "&pagina=" & intRecordPositionPageNum & """ target=""_self"">" & strPreviousPollQuestion & "</a></td>"

Response.Write vbCrLf & " <td align=""right"" class=""fonte1"" height=""25"">" & FormatDateTime(dtmPreviousPollQuestionDate, VbLongDate) & "</td>"

Response.Write vbCrLf & " </tr>"

 

rsWeeklyPoll.MoveNext

 

Next

 

%>

</table></td>

</tr>

</table>

</body>

</html>

 

O problema que eu não consigo modificar o código, para que a data referente as enquetes neste formato (quarta-feira, 5 de janeiro de 2005) convertam-se para (5/01/2005).

 

Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

Alessancost    0

Alessancost
Postado

Não querendo abusar da boa vontade de vcs... agora eu gostaria de modificar o formato da data 19/11/2004para 19/11... o formato atual ainda esta ultrapassando o espaço determinado

 

PS: Não encontrei nenhuma referencia no site indicado para essa nova formatação

 

Obrigado :unsure:

Compartilhar este post

Link para o post
Compartilhar em outros sites

FabricioGomes    0

FabricioGomes
Postado

ai, como isso nao é uma "data valida" voce vai ter pegar os 5 caracteres da esquerda, utilize left...Response.Write vbCrLf & " <td align=""right"" class=""fonte1"" height=""25"">" & left(cStr(FormatDateTime(dtmPreviousPollQuestionDate, vbShortDate)),5) & "</td>"acho que assim funcionaria....falow!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Alessancost    0

Alessancost
Postado

Estou muito perto do resultado esperado. O único problema agora que a data não apresenta o zero no espaço adquirido nos dias 1 á 9 e nos meses 1 á 9Quero dizer que quando a data apresenta os dois dígitos 22/11/2005 – ela agora esta assim 22/11 (o correto)... mas quando a data esta 1/6/2005 – ela fica assim 1/6/2

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

pesquisa a posição das barras e pega o valor do dia e do mes, se forem menor qe 10 concatena um zero na frente...

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito