|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Data por extenso (Segunda-feira, 10 de novembro de 2003)
|
 |
|
|
|
Postada em 1/12/2003 por Martini
Public Function DataExtenso(Data As Date) As String
Dim Extenso As String
Extenso = Format(Data, "dddd, d") & " de " & Format(Date, "mmmm") & " de " & Format(Date, "yyyy")
DataExtenso = Extenso
End Function
' -------------- Acrescentando, outras maneiras --------------
' Captura o Nome da Semana
NomeSemana = WeekdayName(Weekday(Data))
' Captura o nome do mês
NomeMes = MonthName(Format(Data, "M"))
|
|
|
|
|
