Como usar a função Weekday no VBA?

A função `Weekday` no VBA (Visual Basic for Applications) é usada para identificar o dia da semana de uma data específica. Ela retorna um número inteiro que representa o dia da semana, comumente numerando de 1 a 7, onde 1 é domingo e 7 é sábado, embora essa ordem possa ser ajustada conforme a necessidade.

Aqui está um guia básico sobre como usar a função `Weekday` no VBA:

Sintaxe

Weekday(Date, [FirstDayOfWeek])
  • Date: Obrigatório. A data que você deseja avaliar.
  • FirstDayOfWeek: Opcional. Determina qual dia é considerado o primeiro dia da semana. Pode ser um dos seguintes valores:
    • vbUseSystemDayOfWeek (0): Usa a configuração do sistema; esta é a opção padrão.
    • vbSunday (1): Domingo
    • vbMonday (2): Segunda-feira
    • vbTuesday (3): Terça-feira
    • vbWednesday (4): Quarta-feira
    • vbThursday (5): Quinta-feira
    • vbFriday (6): Sexta-feira
    • vbSaturday (7): Sábado

Exemplo de Uso

Sub ExemploWeekday()
    Dim dataTeste As Date
    Dim diaDaSemana As Integer
    
    ' Definindo uma data específica
    dataTeste = #10/15/2023# ' 15 de outubro de 2023
    
    ' Obtendo o dia da semana, onde domingo é 1
    diaDaSemana = Weekday(dataTeste)
    MsgBox "O dia da semana para a data " & dataTeste & " é: " & diaDaSemana
    
    ' Obtendo o dia da semana, onde segunda-feira é 1
    diaDaSemana = Weekday(dataTeste, vbMonday)
    MsgBox "Considerando segunda-feira como o primeiro dia, o dia da semana para " & dataTeste & " é: " & diaDaSemana
End Sub

Observações

  • Se `Date` for nulo ou inválido, o VBA retornará um erro.
  • A função `Weekday` é útil em muitas situações, como ao calcular cronogramas, controlar eventos ou simplesmente formatar relatórios onde os dias da semana são relevantes.

Essa função é uma parte integral de manipulação de datas em VBA, facilitando o gerenciamento preciso e lógico de operações baseadas em datas.

Unlock Your Potential

Excel

Basic - Advanced

Access

Access Basic - Advanced

Power BI

Power BI Basic - Advanced

Help us grow the project