USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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"))
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página