Ir para conteúdo

POWERED BY:

Arquivado

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

webmarco

Como coloco a data no estilo brasileiro

Por , em ASP Clássico

Recommended Posts

Flávio Lago    0

Flávio Lago
Postado

webmarco, tenta o seguinte:

<%'======================================================function formatarData(data,formatoAtual,formatoRetorno)'======================================================' TODAS AS DATAS RECUPERADAS DO BANCO DE DADOS SERÃO ARMAZENADAS NAS VARIÁVEIS DE MEMÓRIA NO FORMATO NORTE AMERICANO MM/DD/YYYY; É O FORMATO MAIS UTILIZADO P/PROVEDORES IIS, INDEPENDENTEMENTE DE SEREM NACIONAIS OU NÃO.Session.LCID = 1033' PORÉM, AS DATAS INFORMADAS PELO USUÁRIO (browse) ESTARÃO NO FORMATO NACIONAL BRASILEIRO DD/MM/AAAA. dim formatoData, dia, mes formatoData = "" dia= "" mes= "" if (trim(data) <> "") then    formatoAtual= trim(ucase(formatoAtual))  if (formatoAtual = "B") then  'formato Brasileiro = DD/MM/AAAA (data digitada p/usuário)  dia= Month(data)  mes= Day(data)  elseif (formatoAtual = "A") then  'formato norte Americano = MM/DD/YYYY (data recuperada do banco)  dia= Day(data)  mes= Month(data)  end if  if (trim(dia) <> "" and trim(mes) <> "") then  if len(dia) = 1 then    dia= "0" & dia  end if  if len(mes) = 1 then    mes= "0" & mes  end if  if (formatoAtual = "B" and mes > 12) then    mes= dia    dia= Day(data)  end if  formatoRetorno= trim(ucase(formatoRetorno))    if (formatoRetorno = "A") then  'retornar data no formato norte Americano = MM/DD/YYYY    formatoData = mes & "/" & dia & "/" & year(data)  elseif (formatoRetorno = "B") then  'retornar data no formato Brasileiro = DD/MM/AAAA      formatoData = dia & "/" & mes & "/" & year(data)    end if  end if end if formatarData = formatoDataend function%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><HTML><HEAD><TITLE> New Document </TITLE><META NAME="Generator" CONTENT="EditPlus"><META NAME="Author" CONTENT=""><META NAME="Keywords" CONTENT=""><META NAME="Description" CONTENT=""></HEAD><BODY>Hoje, <%=formatarData(Now(),"A","B")%></BODY></HTML>

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