Converter Datas

[Diego Gonçalves 0]

Eita nois, la vamos dinovo...

 

To tentando aqui achar um jeito mas ta embaçado, estou com uma situação aqui no meu sistema, em que o retorno da data é nesse formato 20091112, só que eu preciso passar para esse 12/11/2009. Pelo que eu acho, terei primeiro de transformar o texto em data ex. 2009/11/12 para depois mudar para o formato brasileiro 12/11/2009.

 

Caso alquém possa me ajudar eu agradeço

[xanburzum 169]

dá uma pesquisada no lab. de script k existem varias funcoes para isso, vai te ajudar...

[Diego Gonçalves 0]

dá uma pesquisada no lab. de script k existem varias funcoes para isso, vai te ajudar...

 

Valeu pela dica, estive dando uma olhada e notei que só tem função p/ formatar data, o problema é que isso aqui 20091112 nem virou data ainda para poder ser formatada, eu precisaria de mudar de texto para data e depois formatar se fosse necessario.

[xanburzum 169]

você pode pegar o valor, dar um split nele, pegar as datas individualmente

 

CDATE(TEXTO)

[jrcardozo 4]

eu faria de uma forma bem simples se sempre estiver neste formato

stringData = "20091112"
Response.Write Mid(stringData, 7, 2) & "/" & Mid(stringData, 5, 2) & "/" & Mid(stringData, 1, 4)

[Diego Gonçalves 0]

eu faria de uma forma bem simples se sempre estiver neste formato

stringData = "20091112"
Response.Write Mid(stringData, 7, 2) & "/" & Mid(stringData, 5, 2) & "/" & Mid(stringData, 1, 4)

Obrigado jonathan e xanburzum.

 

Utilizei a forma que o jonathan indicou e funcionou aqui.

[xanburzum 169]

como citei acima

pegar as datas individualmente

[soulforjah 0]

Estou utilizando a solução do jonathan, mas ele dá erro ao utilizar CDate...

Da isso:

Type mismatch: 'Cdate'

o que pode estar acontecendo?

     for each arq in pastatotal.files
        TiraAplFinal = Cstr(Left(arq.Name,Len(arq.Name) - 6))
	ColheTimesTemp = Right (TiraAplFinal, 14)
	DiaUltMod = Mid (ColheTimesTemp, 7,2)
	AnoUltMod = Left (ColheTimesTemp, 4)
	MesUltMod = Mid (ColheTimesTemp, 5,2)
	HoraUltMod = Mid (ColheTimesTemp, 9,2)
	MinUltMod = Mid (ColheTimesTemp, 11,2)
	SegUltMod = Mid (ColheTimesTemp, 13,2)
	DataUltimaModificacao = CDate(MesUltMod&"/"&DiaUltMod&"/"&AnoUltMod)
	response.write (DataUltimaModificacao&"<br>")
    next

[Mário Monteiro 179]

verifica que valor está sendo passado para a função para tentar identificar o erro

 

antes dela de um write neste valor o ultimo que aparecer antes do erro é o que ocasiona

[xanburzum 169]

qual o numero do erro e a linha

olha este exemplo

<%
Function ConverterDataBanco(ConDataBanco)
    ConDataBanco = Right("0"&Day(ConDataBanco),2) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Year(ConDataBanco)
    ConverterDataBanco= ConDataBanco
End Function
Response.Write(ConverterDataBanco(Date()))
%>