HORA

Function DataExtenso(Cidade As String, Data As Variant) As String
dia = Day(Data)
Mes = Format(Data, "M")
Ano = Year(Data)
DiaSemana = Weekday(Data)
Rem Converte o Nome da Semana
Select Case DiaSemana
   Case 1
        NomeSemana = "Domingo"
   Case 2
        NomeSemana = "Segunda-feira"
   Case 3
        NomeSemana = "Terça-feira"
   Case 4
        NomeSemana = "Quarta-feira"
   Case 5
        NomeSemana = "Quinta-feira"
   Case 6
        NomeSemana = "Sexta-feira"
   Case 7
        NomeSemana = "Sábado"
End Select
Rem Converte o nome Do mês
Select Case Mes
   Case 1
        NomeMes = "Janeiro"
   Case 2
        NomeMes = "Fevereiro"
   Case 3
        NomeMes = "Março"
   Case 4
        NomeMes = "Abril"
   Case 5
        NomeMes = "Maio"
   Case 6
        NomeMes = "Junho"
   Case 7
        NomeMes = "Julho"
   Case 8
        NomeMes = "Agosto"
   Case 9
        NomeMes = "Setembro"
   Case 10
        NomeMes = "Outubro"
   Case 11
        NomeMes = "Novemnbro"
   Case 12
        NomeMes = "Dezembro"
 End Select
 Rem Monta a data em extenso
 DataExtenso = Cidade & ", " & NomeSemana & " " & dia & " de " & NomeMes & " de " & Ano
End Function