data no formato DDMMAAAA

[mauriciocr 0]

Amigos , preciso de uma juda como eu tranforma esta data para o padrão "DDMMAAAAdatav = replace(date + 7,"/","") datav = replace(datav,"/","")

[Noodle 0]

Bota na pagina:session.lcid = 1046

[dataset 0]

dataNova = day(dataAntiga)&"/"&month(dataAntiga)&"/"&year(dataAntiga)Se a dataAntiga for uma String, é mais seguro fazer assim:dataNova = day(Cdate(dataAntiga))&"/"&month(Cdate(dataAntiga))&"/"&year(Cdate(dataAntiga))Nesses modelos acima ficaram da seguinte forma:de 07/02/2006 para 2/7/2006Se quizer manter os zeros:dataNova = right("0"&day(Cdate(dataAntiga)),2)&"/"&right("0"&month(Cdate(dataAntiga)),2)&"/"&year(Cdate(dataAntiga))daí ficará:de 07/02/2006 para 02/07/2006Espero que tenha ajudado.Se não der certo... tecla aí pra gente dar mais algumas ideias...Falow..

[mauriciocr 0]

Bota na pagina:session.lcid = 1046

Ow , obrigado pela dica , mas este codigo é para o formato dd/mm/aaeu preciso que sai o ano inteiro

dataNova = day(dataAntiga)&"/"&month(dataAntiga)&"/"&year(dataAntiga)Se a dataAntiga for uma String, é mais seguro fazer assim:dataNova = day(Cdate(dataAntiga))&"/"&month(Cdate(dataAntiga))&"/"&year(Cdate(dataAntiga))Nesses modelos acima ficaram da seguinte forma:de 07/02/2006 para 2/7/2006Se quizer manter os zeros:dataNova = right("0"&day(Cdate(dataAntiga)),2)&"/"&right("0"&month(Cdate(dataAntiga)),2)&"/"&year(Cdate(dataAntiga))daí ficará:de 07/02/2006 para 02/07/2006Espero que tenha ajudado.Se não der certo... tecla aí pra gente dar mais algumas ideias...Falow..

Ow , então não deu certo , você teria outra solução para min ?

[Felipe Fonseca 0]

Amigo Existe, varias maneiras de se fazer isso. Tente mudar o formato de Data no servidor.Vá em Painel de Controle / Opções Regionais / Data / Hora .. e mude o padrão dqa Data. Assim, quando você mandar imprimir uma data do seu BD ela virá n formato expecificado.Esse eh o modo mais correto de se fazer isso, agora existem as famosas 'gambiarras' que tbm funcinanam ... usando a funcção Replace, Len e até mesmo o IF. Tente aí qulauqer coisa da um grito aí..vlw

[dataset 0]

você usa ACCESS ? Se sim, na string SQL coloca

 

SELECT Format(tabela.campo,'dd/mm/yyyy') as newData FROM tabela

você pode trocar também para

 

mm/dd/yyyy

[Felipe Bellé 0]

pode usar desta maneira se for pegar de um banco de dados (uso isso pra mssql server e mysql)

 

convert(char(10),campo,103)

se for normal é como ja citado acima

[Robex 171 0]

Velho ussa a função DatePart() separar os valores e depois você organiza!dia = DatePart("d",rs("date"))mes = DatePart("m",rs("date"))ano = DatePart("yyyy",rs("date"))data = dia & "/" & mes & "/" & ano 'ou como quiser!A função DatePart() retorna um valor referente a procura. Ex: no caso acima "y" = (5) refere-se ao mês, então será retornado 5, e assim por diante... Veja a tabela referente aos tipos de dados que poderam ser retornados da função:"d" = Dia "w" = Dia da Semana "h" = Horas "n" = Minutos "s" = Segundos "m" = Mês"q" = Trimestre"yyyy" = AnoEssa função é o bixo!!!

[luciano 0]

Aproveitando este tópico, no caso do insert como fazer??uso aceess: data_compra =DateValue(Request.Form("data_compra")) 'campo dataN_dias_garantia = Request.Form("N_dias_garantia") 'campo numerodias= data_compra + N_dias_garantiaADICIONAR="INSERT INTO produtos (cod_cliente,cod_produto,produto,data_compra,data_venc_garant)" & "VALUES('" & cod_cliente & "', '" & cod_produto & "', '" & produto & "', '" & data_compra & "','"&dias& "')" Obrigado

Amigo Existe, varias maneiras de se fazer isso. Tente mudar o formato de Data no servidor.Vá em Painel de Controle / Opções Regionais / Data / Hora .. e mude o padrão dqa Data. Assim, quando você mandar imprimir uma data do seu BD ela virá n formato expecificado.Esse eh o modo mais correto de se fazer isso, agora existem as famosas 'gambiarras' que tbm funcinanam ... usando a funcção Replace, Len e até mesmo o IF. Tente aí qulauqer coisa da um grito aí..vlw

[mauriciocr 0]

Velho ussa a função DatePart() separar os valores e depois você organiza!dia = DatePart("d",rs("date"))mes = DatePart("m",rs("date"))ano = DatePart("yyyy",rs("date"))data = dia & "/" & mes & "/" & ano 'ou como quiser!A função DatePart() retorna um valor referente a procura. Ex: no caso acima "y" = (5) refere-se ao mês, então será retornado 5, e assim por diante... Veja a tabela referente aos tipos de dados que poderam ser retornados da função:"d" = Dia "w" = Dia da Semana "h" = Horas "n" = Minutos "s" = Segundos "m" = Mês"q" = Trimestre"yyyy" = AnoEssa função é o bixo!!!

Amigo o que é o "rs" acompanhado dia = DatePart("d",rs("date"))obrigado

[Robex 171 0]

é so o valor vindo do Banco!!! só um detalhe, mas funciona para variaves normais...dia = DatePart("d",date)mes = DatePart("m",date)ano = DatePart("yyyy",date)Deu certo?

[mauriciocr 0]

é so o valor vindo do Banco!!! só um detalhe, mas funciona para variaves normais...dia = DatePart("d",date)mes = DatePart("m",date)ano = DatePart("yyyy",date)Deu certo?

Putz , ainda não deu certousei assim dia = DatePart("d",date) mes = DatePart("m",date) ano = DatePart("yyyy",date) datav = dia & "/" & mes & "/" & ano É o seguinte , eu to usando o itau shopline e esse exige que a data seja no formato ddmmaaaa para gerar os boleto

[Robex 171 0]

Eu testei a montagem da data que você fez e esta correta...Posta a parte do código onde você, manda a Data para o Itaú!

[mauriciocr 0]

Eu testei a montagem da data que você fez e esta correta...Posta a parte do código onde você, manda a Data para o Itaú!

Olha o codigo da pagina<%call layout("Envio")function envio()if Request("acao") = "Fim" then 'Recebe Informações Da Pagina de Nota nome = request("nome") endr = request("end") bairro = request("bairro") cep = request("cep") cid = request("cid") tel = request("tel") pais = request("pais") pre = request("presente") VlrFrete = request("vlrfrete") peso = request("peso") total = request("total") Forma = request("forma") UF = request("UF") CodCli = Session("codigo") dia = DatePart("d",date) mes = DatePart("m",date) ano = DatePart("yyyy",date) datav = dia & "/" & mes & "/" & ano set conexao = server.CreateObject("adodb.connection") conexao.Open application("odbc") 'Recebe Número de Pedido e Pessoa sql = "select * from pedN" set rs = server.CreateObject("ADODB.Recordset") rs.Open sql, conexao, 3, 3 nped = (rs("nped") + 1) rs.close sql = "select * from clientes where codcli =" & codcli rs.Open sql, conexao, 3, 3 if rs.RecordCount > 0 then if rs("tipo") = "J" then pessoa = "02" else pessoa = "01" end if end if if pre <> "" then pre = "S" else pre = "N" end if 'Verifica o Endereço if nome <> "" and endr <> "" and Cid <> "" and Pais <> "" and Uf <> "" then entr = "S" else entr = "N" end if 'Cadastra Pedido sql = "insert into histped(codcli, data, nped, presente, entr, valortotal, valorfrete, nome, [end], bairro, cep, tel, cid, uf, pais, tipopag, pesoaprox, recebido, entregue) Values(" & codcli &", #" & day(date) & "/" & month(date) & "/" & year(date) & "#," & nped &",'" & pre &"','" & entr &"','" & total &"','" & vlrfrete &"','" & nome &"','" & endr &"','" & bairro &"','" & cep &"','" & tel &"','" & cid &"','" & uf &"','" & pais &"','" & forma &"','" & peso &"','N','N')" Response.Write sql conexao.Execute sql sql = "select max(codped) as ultimo_pedido from histped" set rs_cod_ped = conexao.Execute(sql) session("cod_ped") = rs_cod_ped("ultimo_pedido") set rs_cod_ped = nothing 'Cadastra Itens do Pedido iCount = Session("ItemCount") MatCarroCompra = Session("MeuCarrinhoCompras") set rsprod = server.CreateObject("ADODB.recordset") for i = 1 to iCount codprod = MatCarroCompra(carroCodProduto,i) tam = MatCarroCompra(carroProdutoTam,i) cor = MatCarroCompra(carroProdutoCor,i) qtd = MatCarroCompra(carroQuantidade,i) sql = "select valor from produtos where codprod = " & codprod rsprod.Open sql, conexao, 3, 3 sql = "insert into peditem(codped, codprod, tam, cor, qtd, valor) values(" & nped & ", " & codprod & ",'" & tam & "','" & cor & "','" & qtd & "','" & rsprod("valor") & "')" conexao.Execute sql sql = "update produtos set estoque = estoque - 1 where codprod = " & codprod conexao.Execute sql rsprod.Close next sql = "update PedN set nped = nped+1" conexao.Execute sql sql = "update CLIENTES set nped = nped+1 where codcli=" & codcli conexao.Execute sql if forma <> "Dep" then 'Envia para o itau %> <form action=Itau.asp method=post> <INPUT type="hidden" name="pedido" value="<%=nped%>"> <INPUT type="hidden" name="valor" value="<%=replace(formatcurrency(total),"R$ ","")%>"> <INPUT type="hidden" name="observacao" value="Referente a compra de Artigos para Vestimentos."> <INPUT type="hidden" name="nomeSacado" value="<%=rs("nome")%>"> <INPUT type="hidden" name="codigoInscricao" value="<%=pessoa%>"> <INPUT type="hidden" name="numeroInscricao" value="<%=replace(replace(replace(rs("cpfcnpj"),",",""),".",""),"/","")%>"> <INPUT type="hidden" name="enderecoSacado" value="<%=rs("rua") & ", " & rs("numero") & " - " & comp%>"> <INPUT type="hidden" name="bairroSacado" value="<%=rs("bairro")%>"> <INPUT type="hidden" name="cepSacado" value="<%=rs("cep")%>"> <INPUT type="hidden" name="cidadeSacado" value="<%=rs("cidade")%>"> <INPUT type="hidden" name="estadoSacado" value="<%=rs("uf")%>"> <INPUT type="hidden" name="dataVencimento" value="<%=datav%>"> <INPUT type="hidden" name="urlRetorna" value=""> </form> <script LANGUAGE=javascript> <!-- document.forms[0].submit(); //--> </SCRIPT> <% end ifend ifend function%>

[Robex 171 0]

O problema esta acontecendo na página Itau.asp né?

 

Troca o type desse imput para text e ve se esta pegando a data!

<INPUT type="text" name="dataVencimento" value="<%=datav%>">

 

Se estiver da um

dataVencimento=request("dataVencimento")

response.write dataVencimento

 

Para ver se a página Itau.asp, esta recebendo a data.

Manda o codigo da página Itau.asp, porque acredito que o problema seja lá!

[mauriciocr 0]

O problema esta acontecendo na página Itau.asp né?

 

Troca o type desse imput para text e ve se esta pegando a data!

<INPUT type="text" name="dataVencimento" value="<%=datav%>">

 

Se estiver da um

dataVencimento=request("dataVencimento")

response.write dataVencimento

 

Para ver se a página Itau.asp, esta recebendo a data.

Manda o codigo da página Itau.asp, porque acredito que o problema seja lá!

 

Aew GALERA , muito obrigado pela ajuda , eu consegui resolver o problema com todas essas informações

valew mesmo