[Resolvido]dia da semana

Boa tarde grandes mestres...
estou com uma duvida, tenho um relatorio a partir de consulta,
com os campos data, historico, valor...
ao montar o relatorio fiz dois agrupamentos no campo data,
o primeiro por mes, e o segundo por semana, e possivel criar
um campo que saia como valor o dia da semana, como segunda, terça, quarta...
conheço no excel a formula dia da semana, e no access e possivel?

Boa noite, brunopmelo

Utilize a função weekdayname

Complementado o código do meu amigão Alexandre:

Dim MyDate 'declaramos a variável
MyDate = WeekDayName(6, True)

Neste caso iria retornar a sexta feira

Amigos como sou novato estou com dificuldade para
colocar para funcionar, eu tentei, adicionando campo texto nao acoplado
no relatório e com o botão direito, construir evento, construtor de códigos,
no vba coloquei o código:

Private Sub diasemana_BeforeUpdate()
Dim MyDate 'lc_data
MyDate = WeekdayName(6, True)
End Sub

lc_data e campo data do relatorio

Private Sub diasemana_BeforeUpdate()
Dim lc_data
lc_data = WeekdayName(6, True)
End Sub

Não experimentei mas o campo deve estar actualizado, logo deve ser colocado no evento afterupdate()

Vieira nao consegui, tentei mandar o bd e nao deu
certo, coloquei aqui http://dl.dropbox.com/u/41880754/bd1.rar

1 - Criei um modulo e o nomeei BasDiaSemana.

No módulo:

Código:

Option Compare Database
Public Function FuncSemana(dteDateHired As Date)
    Dim DaysNames(7) As String

    DaysNames(0) = ""
    DaysNames(1) = "Domingo"
    DaysNames(2) = "Segunda-feira"
    DaysNames(3) = "Terça-feira"
    DaysNames(4) = "Quarta-feira"
    DaysNames(5) = "Quinta-feira"
    DaysNames(6) = "Sexta-feira"
    DaysNames(7) = "Sábado"

    FuncSemana = DaysNames(DatePart("w", dteDateHired))
End Function


Na consulta em campo não acoplado:
DiaSemana: FuncSemana([lc_Data])

http://dl.dropbox.com/u/26441349/BrunoMello_16_09_11.rar

Abra a consulta e observe


Cumprimentos.

Harysohn ficou otimo,
muito obrigado...

O Fórum agradece o retorno.