Dia da Semana por Extenso

Para iniciar este novo blog, vou explicar como se pode obter o número da semana por extenso no Excel.
Existe uma função designada por WEEKDAY e que permite um número inteiro entre 1 e 7 correspondente ao dia da semana, sendo 1 Domingo e 7 Sábado.

Para termos o dia da semana escrito, podemos usar o VBA e criar essa função, para isso abram o VBA, insiram um novo módulo e escrevam o seguinte código:

Function DIADASEMANA(Data As Date)
   Dim NumeroDoDia As Integer
   NumeroDoDia = Weekday(Data)
   Select Case NumeroDoDia
       Case 1
           DiaDaSemana = "Domingo"
       Case 2
           DiaDaSemana = "Segunda-Feira"
       Case 3
           DiaDaSemana = "Terça-Feira"
       Case 4
           DiaDaSemana = "Quarta-Feira"
       Case 5
           DiaDaSemana = "Quinta-Feira"
       Case 6
           DiaDaSemana = "Sexta-Feira"
       Case 7
           DiaDaSemana = "Sábado"
   End Select
End Function 

Para utilizar esta função, basta fazer =DIADASEMANA(Célula com a data) e iremos obter o dia da semana dessa data por escrito.