MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    mrmuller_mar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 05/10/2017

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

    Mensagem  mrmuller_mar em 8/6/2018, 12:22

    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.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5548
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 8/6/2018, 12:50

    Olá Marcelo,

    Não falta exemplos no forum, veja como fazer uma "Busca":
    [Você precisa estar registrado e conectado para ver este link.]

    Este já cá está desde 2011 Wink
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço

    mrmuller_mar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 05/10/2017

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

    Mensagem  mrmuller_mar em 8/6/2018, 13:20

    Apliquei o exemplo mais nao consegui

    verifiquei outros na pesquisa mais nada
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5548
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 8/6/2018, 13:49

    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

    mrmuller_mar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 05/10/2017

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

    Mensagem  mrmuller_mar em 8/6/2018, 14:22

    segue modelo

    formulario

    F_Agenda Cursos
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5548
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 8/6/2018, 14:38

    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

    mrmuller_mar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 05/10/2017

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

    Mensagem  mrmuller_mar em 8/6/2018, 15:12

    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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10167
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em 8/6/2018, 15:58

    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")



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    mrmuller_mar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 05/10/2017

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

    Mensagem  mrmuller_mar em 8/6/2018, 16:18

    Deu certo

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


    Bom dia a todos!!!!!

    Marcelo
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10167
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em 8/6/2018, 16:20

    Bom final de semana.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5548
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 8/6/2018, 21:20

    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.
    cheers

      Data/hora atual: 19/10/2018, 06:21