Data por extenso

[Jattobá 0]

Informar a data ex:Dim as dhoje as stringdhohe = RetDia(11/03/2007)Retorno = Domingo, 11 de Março de 2007Public Function RetDia(qData As Date) As String			  Dim Dia(), Mes(), lngValor As Integer			  Dia = Array("Domingo", "Segunda-Feira", "Terça-Feira", "Quarta-Feira", "Quinta-Feira", "Sexta-Feira", "Sábado")			  lngValor = Weekday(qData)			  Mes = Array("Janeiro", "Fevereiro", "Março", "Abril", "Maio", "Junho", _			  "Julho", "Agosto", "Setembro", "Outubro", "Novembro", "Dezembro")			  RetDia = Dia(lngValor) + ", " + CStr(Day(qData)) + " de " + Mes(Month(qData)) + " de " + CStr(Year(qData))End Function

[Jattobá 0]

Desculpe amigos, a idéia era postar no tópico dos destaques "Funções, rotinas e dicas", como de fato acabei de fazer.abç