[Resolvido] Formatando datas usando função

[jrcardozo 4]

Seguinte, estou criando algumas funções para rotinas que normalmente preciso, ai vai uma delas e muito procurada aqui no fórum, podendo escolher o caracter separados da data na saida da função

OBS: Não esqueçam de setar o lcid para o padrão desejado antes de utilizar qualquer formatação de datas

 

'####### Formata a data para BR ou EN'Autor: Jonathan Cardozo'Data: 25/04/2007Function formataData(data,formato,separador)  'data	  = formato DD-MM-AAAA ou AAAA-MM-DD 'formato   = inteiro de 0 ou 1. 0(zero) formato BR e 1 formato EN 'separador = char que separa os valores da data data = replace(data,"/","-") data = replace(data,".","-")  if isdate(data)=false then  Response.write("Data Inválida")  Response.End() end if 'Formato 1 para DD-MM-AAAA e 0 para AAAA-MM-DD  if formato = 1 then  IntDia		 = right("0"&day(data),2)  IntMes		 = right("0"&month(data),2)  IntAno		 = year(data)  formataData	= IntDia&separador&IntMes&separador&IntAno  elseif formato = 0 then  IntDia		 = right("0"&day(data),2)  IntMes		 = right("0"&month(data),2)  IntAno		 = year(data)  formataData	= IntAno&separador&IntMes&separador&IntDia  else  response.write("ERRO") end if End Function

Exemplos de chamda para função

response.write(formataData("01/01/2007",1,"-"))response.write(formataData("2005/01/01",0,"."))response.write(formataData("01-01-2007",0,"/"))

---------------------------------------------

função 2 para formatar data

Function formataData2(formato,data,separador,lcidPais)	Dim dia, mes, ano	Dim novaData	if isnull(lcidPais) or lcidPais="" then		lcidPais = 1046	end if	Session.LCID = cint(lcidPais)	dia		  = right("0"&day(data),2)	mes		  = right("0"&month(data),2)	ano		  = right("0"&year(data),4)	formato	  = ucase(formato)	formato	  = replace(formato,"-","")	formato	  = replace(formato,"/","")		formato	  = replace(formato,".","")	formato	  = replace(formato,"Y","A")			Select case formato		case "DDMMAAAA"			novaData = dia&separador&mes&separador&ano		case "DDMMAA"			novaData = dia&separador&mes&separador&right(ano,2)		case "MMDDAAAA"			novaData = mes&separador&dia&separador&ano		case "MMDDAA"			novaData = mes&separador&dia&separador&right(ano,2)		case "AAAADDMM"			novaData = ano&separador&dia&separador&mes		case "AADDMM"			novaData = right(ano,2)&separador&dia&separador&mes		case "AAAAMMDD"			novaData = ano&separador&mes&separador&dia		case "AAMMDD"			novaData = right(ano,2)&separador&mes&separador&dia		case else			novaData = "ERRO"		End Select	formataData2 = novaData	End Function

cahamando a função

response.write(formataData2("yymmdd","1/10/2005",".",1033))

response.write(formataData2("aaaaddmm","16/10/2005",".",1046))