[Resolvido]Converter data para dia da Semana (ex 08/06/2018 = Sexta-Feira)

Bom dia a todos,

Preciso de uma ajuda, preciso converte data para dia da semana, para ter que evitar digitar duas vezes(data/dia)

ex:

08/06/2018 = Sexta-Feira
Data Dia
CampoTabela CampoTabela

Obrigado.

Olá Marcelo,

Não falta exemplos no forum, veja como fazer uma "Busca":
https://www.maximoaccess.com/t1115-busca-no-forum-search

Este já cá está desde 2011
https://www.maximoaccess.com/t1657-resolvidoretornar-numero-da-semana-a-partir-de-uma-data

Abraço

Apliquei o exemplo mais nao consegui

verifiquei outros na pesquisa mais nada

Olá Marcelo,

Verifique bem o código da mensagem n. 2, está lá tudo.
Se a duvida se mantiver, crie um pequeno exemplo de como está a fazer e poste para se analisar.

Abraço

segue modelo

formulario

F_Agenda Cursos

Olá

Só pela imagem, não é fácil ajudar.

Considerando que quer colocar no campo dia seria algo assim na origem do campo:

=DiaDaSemana(seuCampoData)

Abraço

Funcionou

mais a data nao bate com o dia

08/06/2018 - Domingo
09/06/2018 - Segunda Feira

Fiz o modulo: dia(data)

Option Compare Database
Function Dia(Data As String) As String
If IsDate(Data) Then
Select Case Format(Data, "w")
Case 1
Dia = "Segunda-feira"
Case 2
Dia = "Terça-feira"
Case 3
Dia = "Quarta-feira"
Case 4
Dia = "Quinta-feira"
Case 5
Dia = "Sexta-feira"
Case 6
Dia = "Sábado"
Case 7
Dia = "Domingo"
End Select

Else
Dia = "Data Inválida!"
End If

End Function

coloquei o código dentro do formulário/dia

Forn (dia) =Dia([Data])

segue pagina

Ola a todos;

Estava a acompanhar e nem acredito que uma coisa tão simples se torne em complicada.

Não use palavras reservadas do Access em nomes de campos, DATA é uma palavra reservada.

Você vai me desculpar, mas faça o simples:

Código:

=Format([SeuCampoData];"dddd")

Deu certo

Muito obrigado, vou aplicar sua dica a partir de agora.


Bom dia a todos!!!!!

Marcelo

Bom final de semana.

Olá a todos.

Bem visto JPaulo, devemos primar pela simplicidade.
O código indicado, apenas deve ser utilizado quando o idioma do Access é diferente do idioma pretendido.

Abraço a todos e bom fim de semana.