Formatar data

[Cesão 1]

Olá amigos.. tenho um campo no meu banco de dados que eh de data.. data completa... (1/11/2006 12:33:12)... Gostaria de formatar a data para que ficasse apenas a DATA e que colocasse o "0" antes de dias e meses que tem apenas um numero, para ficar 01/11/2006 ao inves de 1/11/2006...

 

achei essa função, mas vi que ela funciona para a data atual.. tem como usá-la para datas vindas do DB de deixar minha data do jeito que quero?

 

Se nao tiver como, qual função posso usar?

 

Function FormatoData(formato)	Dia = Right("0" & Day(Date), 2)	Mes = Right("0" & Month(Date), 2)		Ano = Year(Date)	DataFinal = Replace(formato, "NMdd", WeekDayName(WeekDay(Date)))	DataFinal = Replace(DataFinal, "NMmm", MonthName(Month(Date)))	DataFinal = Replace(DataFinal, "ABdd", WeekDayName(WeekDay(Date), TRUE))	DataFinal = Replace(DataFinal, "ABmm", MonthName(Month(Date), TRUE))	DataFinal = Replace(DataFinal, "dd", Dia)	DataFinal = Replace(DataFinal, "mm", Mes)	DataFinal = Replace(DataFinal, "aaaa", Ano)	DataFinal = Replace(DataFinal, "aa", Mid(Ano, 3, 2))	FormatoData = DataFinalEnd Function

[<%Rafael%> 0]

data = RS("data") 'Aqui seu recordset que pega a data do DB...

A função seria assim:

 

Function FormatoData(data)dia = DatePart("d", data)mes = DatePart("m", data)ano = DatePart("yyyy", data)If Len(dia) < 2 Then dia = "0" & diaIf Len(mes) < 2 Then mes = "0" & mesFormatoData = dia & "/" & mes & "/" & anoEnd Function

E quando precisar chamar, é só usar:

 

FormatoData(RS("data"))

Qualquer dúvida dá um grito...

 

Abraços!

[Cesão 1]

Valeu Rafael,funcionou perfeito!! era disso mesmo que eu tava precisando!