Chamar A Função

[ViniciusJau]

e ai moçada...

eu estou usando uma função que o nosso amigo guto postou lá em funções.. para formatar as datas....

dim dd, mm, aa
Function FormataData(data)
dd = Day(data)
mm = Month(data)
aa = Year(data)

if len(dd) = 1 then dd = "0" & dd
if len(mm) = 1 then mm = "0" & mm

FormataData = CStr(dd & "/" & mm & "/" & aa)
End Function

porém eu não consigo chamar ela para formatar a minha data ( que na verdade é uma consulta no baco de dados.. ou seja <%=rs("data")%>

alguém ai pode me dar uma luz ??

[Guest Guest]

Será que vce não está usando o option Explicit? Isso daria erro pois o "dim dd, mm, aa" está fora da função e, de estivesse na página de chamada ainda teriia de ser declarada como "Public" senão a função não as enxergaria.

Abraço!

[cyberalexxx]

Voce usa mysql???

se sim da pra formatar direto no select:

SELECT date_format(campodata, '%d/%m/%Y') AS data_br from tabela

[Brake]

<%=FormataData(rs("data"))%>

é isso ai!??

valeu

[ViniciusJau]

Voce usa mysql???

se sim da pra formatar direto no select:

SELECT date_format(campodata, '%d/%m/%Y') AS data_br from tabela

eu uso mysql sim...

eu estava tentanda fazer que nem o brake mostrou ..

só num entendi muito bem

[Brake]

Voce usa mysql???

se sim da pra formatar direto no select:

SELECT date_format(campodata, '%d/%m/%Y') AS data_br from tabela

eu uso mysql sim...

eu estava tentanda fazer que nem o brake mostrou ..

só num entendi muito bem

Bom ... vou tentar explicar ......

você fez uma funcao correto!! ... para chamala basta imprimir ela na tela, não sei se você me compreende ..... pois esta funcão esta apenas eperando que você informe alguma data a ela, para que ela a formate.

tem duas maneiras ...

você pode fazer uma variavel receber , ex:

varTMP = FormataData(rs("valor"))

logo após para exebir na tela você faz: <%=(varTMP) %>

ou então fazer direto como eu tinha posto anteriormente:

<%=(FormataData(rs("valor")) %>

qualquer coisa me mande um email, blza! .... rafaelb@impacto.tecnologias.com.br

vou tentar te ajudar!... valeu

[ViniciusJau]

SELECT date_format(campodata, '%d/%m/%Y') AS data_br from tabela

hehe eu usei desse jeito e ele deu um erro dizendo que não encontrou um campo que eu tenho no meu banco , mais antes ele não funcionava. .estranho.... oque significa esse AS data_br ??

[Brake]

As data_br ... é a variavel que vai receber o valor da data ....

vamos tentar simplificar ....

quando você for buscar o dado da tabela você tara colocando

no lugar do nome do campo o data_br ....

exemplo:

<%=(rs(data_br))%> ... algo assim!

[ViniciusJau]

ptz saca só eu to usando assim:

Set rs = objConnection.Execute("SELECT date_format(data, '%d/%m/%Y') AS data FROM previstoxrealizado ORDER BY num_auto DESC LIMIT 0, 20 ")

data é o nome do campo onde está a data no meu BD

e ele me dá esse erro:

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/aprendendo.asp, line 16

a linha 16 é essa aqui:

<%=rs("Nome")%>

se eu tira essa função que valida a data ele funciona na boa.... ou seja.. o campo exite no BD...

estranho....

[Brake]

O problema pe que você esta apenas fazendo o select do campo Data, e da mais nenhum, por isso que ele não acha! ......

é necessário chamar todos os campos que você vai mostrar no select,

por exemplo:

Set rs = objConnection.Execute("SELECT date_format(data, '%d/%m/%Y') AS data, nome, nCampos FROM previstoxrealizado ORDER BY num_auto DESC LIMIT 0, 20 ")

compreendeu o que eu quiz falar! ..... =)

[ViniciusJau]

entendi sim... hehe então acho mais facil usar a função que eu você tinha falado hehe pois nessa consulta eu tenho 27 campos cara huahuahua

[Brake]

mais quanto a isso você pode fazer da seguinte maneira dai .....

Set rs = objConnection.Execute("SELECT date_format(PREVISTOXREALIZADO.data, '%d/%m/%Y') AS data, PREVISTOXREALIZADO.* FROM PREVISTOXREALIZADO ORDER BY num_auto DESC LIMIT 0, 20 ")

assim ele vai selecionar todos os campos da tabela, e na variavel data ele colocara o campo data convertido ... intende!

[ViniciusJau]

e na outra função:

meu codigo ficou assim:

<!--#include file="conecta.asp"-->

<% call connect %>

<font size="1" face="Arial, Helvetica, sans-serif">Exibindo os Ultimos 20 registros do Banco de dados</font>

<%

Set rs = objConnection.Execute("SELECT * FROM previstoxrealizado ORDER BY num_auto DESC LIMIT 0, 20 ")

If not rs.EOF Then

Do until rs.eof

%>

<%

dim dd, mm, aa

Function FormataData(data)

dd = Day(data)

mm = Month(data)

aa = Year(data)

if len(dd) = 1 then dd = "0" & dd

if len(mm) = 1 then mm = "0" & mm

FormataData = CStr(dd & "/" & mm & "/" & aa)

End Function

%>

dai quando eu chamo a função eu faço assim:

<%=FormataData(rs("data"))%>

ele me dá um erro assim:

Microsoft VBScript compilation error '800a03ea'

Syntax error

/aprendendo.asp, line 11

Function FormataData(data)

^

será que é porque meu banco é mysql ??? eu já tinha conseguido usar isso uma vez....

[Rob_g2*6(sic)6]

Tenta declarar a sua função fora do Do Until cara !!!!!!!!!!!!!! Funções num podem ser declaradas dentro de loop !!!!!!!!

[ViniciusJau]

Tenta declarar a sua função fora do Do Until cara !!!!!!!!!!!!!! Funções num podem ser declaradas dentro de loop !!!!!!!!

caramba... eu nunca ia descobrir isso hehe

valeu pela ajuda moçada !!!