Pessoal tenho uma campo DataTime ou seja esta com esse formato 15.08.2007 15:50:31, porem preciso pegar esse valor e inverter a parte da data para o seguinte formato, 2007.08.10 a hora ira continuar no mesmo formato, depois de inverter isso tenh oque jogar esse "dado" em uma variavel, que não precisa ser em formado data...

 

não sei se fui claro..

 

Grato

Digamos que este campo esteja aparecendo numa text1 assim:

15.08.2007 15:50:31

 

Para fazer aparecer numa numa text2 assim:

2007.08.15 15:50:31

 

você pode usar este código no lostfocus do text1, por exemplo:

 

Text2.Text = Mid(Text1.Text, "7", "4.") + "." + Mid(Text1.Text, "4", "2") + "." + Mid(Text1.Text, "1", "2") + " " + Right(Text1.Text, "8")

 

Para isto ser uma variável é só vc lançar o código indicando que o text da text2 é uma variável, ai depende do que vc quer fazer depois, ex:

 

dim vDATA as date

vDATA = cdate(text2.text)

...restante de seu código

 

 

espero ter ajudado

Também tem a opção:

 

Text2 = Replace(format(Replace("15.08.2007 15:50:31",".","/"),"yyyy/mm/dd HH:MM:SS"),"/",".")

 

at+