[Resolvido] reduzir código manipulando strings com dat

[tr374 0]

Prezados, será que alguém conhece uma maneira de diminuir o código abaixo, e talvez melhorar a performance.

 

Este código muda a data de ex.: "21/12/2007" para "21/12/07"

 

arr = split(i_datac,"/") 'quebra a data em array
ano = arr(2)
arrano = split(ano,"20") 'tira o 20 de 2007

   if arrano(1) <10 then 'caso seja menor que 10 acrescenta um zero
   i_datac = arr(0)&"/"&arr(1)&"/"&arrano(1) 'monta a string resposta
   else
   i_datac = arr(0)&"/"&arr(1)&"/0"&arrano(1) 'monta a string resposta
   end if
Response.Write(i_datac)

Desde já obrigado!

[Mário Monteiro 179]

DATA = DAY(DATA) & "/" & MONTH(DATA) & "/" & RIGTH(YEAR(DATA),2)

Veja se é isso que quer

[tr374 0]

i_datac é uma campo de texto mas acho que dá para aproveitar, obrigado.

 

Olha só como ficou bem menor:

 

[asp]

i_datac = Left(i_datac,6) & Right(i_datac,2)

[/asp]

 

 

 

 

Obrigado!

[Mário Monteiro 179]

perfeito entao