Como Colocar Dia Semana?

[Guest - Rafael -]

Já tentei colocar um label que atualize o dia da semana (domingo, segunda, etc) . Já tentei com o if várias vezes mas não deu. to usando uma variável com o weekday mas sempre retorna um erro do nome da variável que fica entre parentese em seu conteúdo.

Obridado pela atençao

[William Rodrigues]

Bom, temos algumas maneiras de achar o dia da semana no dia desejado. Podemos usar a função FormatDateTime (vbLongDate) ou com a função WeekDay() que irá lhe retornar em números o dia da semana (Domingo é 1 e Sábado é 7)

Abraços,

William Rodrigues

[Rafael GAGA]

Sem querer abusar muito, mas eu sou iniciante e queria saber se voce não teria um exemplo para mim seguir, já tentei usar o weekday(), mas por ser uma variavel do tipo "date", não retorna um texto para o label.

Obrigado

Rafael GAGA

[William Rodrigues]

Salve!

Claro que tem cara, sem problemas:

Segue o exemplo:

    Data = #5/20/2005# 'você pode usar o Now no lugar da data especifica
    Select Case Weekday(Data)
        Case 1:
            dia = "Domingo"
        Case 2:
            dia = "Segunda-Feira"
        Case 3:
            dia = "Terça-Feira"
        Case 4:
            dia = "Quarta-Feira"
        Case 5:
            dia = "Quinta-Feira"
        Case 6:
            dia = "Sexta-Feira"
        Case 7:
            dia = "Sábado"
    End Select
    MsgBox dia

Há uma outra forma de fazer, mas aí já envolve um vetor. Segue o exemplo:

    Data = #5/20/2005# 'você pode usar o Now no lugar da data especifica
    d = Split(FormatDateTime(Weekday(Data), vbLongDate), ",")
    MsgBox d(0)

Qualquer dúvida é só falar

Abraços,

William Rodrigues