Função VBA: Weekday

Descrição

A função VBA Weekday retorna o número do dia da semana (de 1 a 7) para a data especificada.

Sintaxe Weekday

Weekday(data)

Ou

Weekday(data, primeiro_dia_da_semana)

Numeração

Por padrão, o primeiro dia da semana é domingo (1) e o último dia é sábado (7).

Para alterar a numeração para que segunda-feira seja o primeiro dia da semana (1) e domingo seja o último dia da semana (7), adicione o valor 2 como segundo argumento ao usar esta função:

Weekday(data, 2)

Exemplo VBA Weekday

Usando a função Weekday para exibir o número do dia da semana para várias datas:

Sub WeekdayExample1()
    
    MsgBox Weekday(#11/2/2020#, 2)          'Retorna: 1
    MsgBox Weekday("3.11.20", 2)            'Retorna: 2
    MsgBox Weekday("4 nov 2020", 2)         'Retorna: 3
    MsgBox Weekday("11/05/2020 17:30:21", 2) 'Retorna: 4
    
End Sub

Usando a função Weekday para distinguir entre um dia da semana e um fim de semana:

Sub WeekdayExample2()

    If Weekday(Now, 2) < 6 Then
        MsgBox "Dia da semana..."
    Else
        MsgBox "É o final de semana!"
    End If
    
End Sub