MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Como converter dia da semana em data

    avatar
    MessiasL
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 24/10/2018

    [Resolvido]Como converter dia da semana em data Empty [Resolvido]Como converter dia da semana em data

    Mensagem  MessiasL em 10/11/2018, 17:22

    Peço licença aos Administradores e moderadores do fórum, Pessoal tenho um formulário de aulas onde cadastro o dia da semana e o horário da aula porém gostaria de uma função que convertesse o campo dia da semana em data completa contendo o dia o mês e o ano seria possível já pesquisei mas achei nada concreto sobre isso. peço encarecidamente ajuda. Question Shocked
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Como converter dia da semana em data Empty Re: [Resolvido]Como converter dia da semana em data

    Mensagem  vieirasoft em 10/11/2018, 23:00

    Teste assim:

    Me.txtqueRecebevalorextenso = Format(txtData, "long date")

    ***txtData será a caixa de texto que fornece a data

    Coloque o código no evento ao abrir do Formulário ou no evento depois de actualizar do campo txtData
    avatar
    MessiasL
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 24/10/2018

    [Resolvido]Como converter dia da semana em data Empty Como converter dia da semana em data

    Mensagem  MessiasL em 11/11/2018, 20:35

    Prezado vieira,

    Boa Tarde!

    Obrigado pelo contato testei a linha de código mas não funcionou não havia mencionado que o campo onde seleciono o dia da aula do aluno se trata de uma caixa de combinação onde já tenho listado os dias da semana de segunda-feira a sábado.
    Se puder me ajudar por favor!
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Como converter dia da semana em data Empty Re: [Resolvido]Como converter dia da semana em data

    Mensagem  vieirasoft em 11/11/2018, 23:20

    Meu caro amigo, o código funciona, se houver uma data para ele converter os valores numéricos em extenso, conforme você pediu. Se houver uma data numérica. A sua BD pode estar mal estruturada e você pode estar a pedir algo que não seja possível.

    A sua tabela tem algum campo "Data" por exemplo: 11-11-2018??? Aqui, o código que enviei iria converter para:
    Domingo, 11 de Novembro de 2018. Agora, se seleccionar na sua caixa de combinação "Segunda Feira", certamente que a função não tem o que converter. Isso está muito confuso. Coloque aqui um print do form, por favor, senão não tenho como ajuda-lo, porque se estou a entender o que você tem, tem mal!
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Como converter dia da semana em data Empty Re: [Resolvido]Como converter dia da semana em data

    Mensagem  JPaulo em 12/11/2018, 10:19

    Bom dia a todos;

    Vieira, descuple ae a minha intromissão;

    Messias, Veja se é o que pretende;

    Download

    Código:
    Private Sub cboDiaSemana_AfterUpdate()
    'SUA COMBOBOX DIAS DA SEMANA
    Dim myArray As Variant
    Dim x As Integer
    Dim y As Date

    'se o dia da semana for igual ao de hoje, a data é a de hoje
        If Me.cboDiaSemana.Column(0) = WeekdayName(Weekday(Date, vbMonday)) Then
    'dou a data de hoje ao resultado
           Me.txtResultado.Value = Date
    'e morre aqui
           Exit Sub
        End If
    'monto o array dos dias da semana
    myArray = Array("segunda-feira", "terça-feira", "quarta-feira", "quinta-feira", "sexta-feira", "sábado", "domingo")
    'dou a data de hoje á variavel
    y = Date
    'percorro o array
    For x = LBound(myArray) To UBound(myArray)
    'comparo o array com a minha escolha na combobox e com o dia da semana da data na variavel "y"
        If Me.cboDiaSemana.Column(0) = (myArray(x)) And (myArray(x)) = WeekdayName(Weekday(y, vbMonday)) Then
    'se ambos estiverem certos, então dou-lhe a data correspondente
           Me.txtResultado.Value = y
    'e morre aqui
           Exit Sub
        End If
    'se não forem iguais, adiciono mais um dia á variavel
    y = y + 1
    'avanço no array
    Next x
    End Sub


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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Como converter dia da semana em data Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Como converter dia da semana em data Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Como converter dia da semana em data Folder_announce_new Instruções SQL como utilizar...
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Como converter dia da semana em data Empty Re: [Resolvido]Como converter dia da semana em data

    Mensagem  vieirasoft em 12/11/2018, 11:49

    Bom dia, qualquer intervenção sua é e será sempre muito bem vinda. Obrigado.
    avatar
    MessiasL
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 24/10/2018

    [Resolvido]Como converter dia da semana em data Empty Como converter dia da semana em data

    Mensagem  MessiasL em 12/11/2018, 17:33

    Boa tarde JPaulo,
    Muito obrigado pelo contato copiei o código mas não funcionou estou te enviando meu exemplo se você por favor puder dar uma olhada e me dizer onde estou errando pois não consegui identificar.Desculpe o incomodo. tenho dois formulários o primeiro chamado Dados do aluno e dentro deste formulário tenho um sub formulário chamado Horário do Aluno onde seleciono o campo referente ao dia da semana. O código que você criou é exatamente o que eu precisava mas muito melhor do que eu imaginava. gratidão!!!
    Anexos
    [Resolvido]Como converter dia da semana em data AttachmentDatabase2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (86 Kb) Baixado 5 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Como converter dia da semana em data Empty Re: [Resolvido]Como converter dia da semana em data

    Mensagem  JPaulo em 12/11/2018, 17:43

    Tratando-se de um form continuo, a caixa do resultado não pode ser desvinculada da tabela.

    Veja:
    Download


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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Como converter dia da semana em data Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Como converter dia da semana em data Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Como converter dia da semana em data Folder_announce_new Instruções SQL como utilizar...
    good guy
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Como converter dia da semana em data Empty Como converter dia da semana em data

    Mensagem  good guy em 12/11/2018, 17:59

    Olá Messias,

    Fiz um pequeno ajuste no código do mestre João Paulo.

    Código:

    Public Function ConverterData()
    'HDiadaSemana
    Dim myArray As Variant
    Dim x As Integer
    Dim y As Date
    Dim dtaData As Variant
    dtaData = Me.HDiadaSemana.Column(0)

    'se o dia da semana for igual ao de hoje, a data é a de hoje
        If dtaData = WeekdayName(Weekday(Date)) Then
    'dou a data de hoje ao resultado
           Me.txtResultado.Value = Date
    'e morre aqui
           Exit Function
        End If
    'monto o array dos dias da semana
    myArray = Array("segunda-feira", "terça-feira", "quarta-feira", "quinta-feira", "sexta-feira", "sábado", "domingo")
    'dou a data de hoje á variavel
    y = Date
    'percorro o array
    For x = LBound(myArray) To UBound(myArray)
    'comparo o array com a minha escolha na combobox e com o dia da semana da data na variavel "y"
        If dtaData = (myArray(x)) And (myArray(x)) = WeekdayName(Weekday(y)) Then
    'se ambos estiverem certos, então dou-lhe a data correspondente
           Dim strSQL As String
           Dim strResultado As String
           strResultado = Me.txtResultado
          
           DoCmd.SetWarnings False
           strSQL = "INSERT INTO [Horario do Aluno].DiaSemana VALUES ('" & strResultado & "')"
           currentdb.Execute strSQL
           DoCmd.SetWarnings True
         
    'e morre aqui
       Else
           Exit Function
          
        End If
    'se não forem iguais, adiciono mais um dia á variavel
    y = y + 1
    'avanço no array
    Next x
    End Function
    Anexos
    [Resolvido]Como converter dia da semana em data AttachmentDatabase2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (51 Kb) Baixado 5 vez(es)


    Última edição por good guy em 12/11/2018, 21:22, editado 4 vez(es)
    avatar
    MessiasL
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 24/10/2018

    [Resolvido]Como converter dia da semana em data Empty Como converter dia da semana em data

    Mensagem  MessiasL em 12/11/2018, 18:06

    Olá JPaulo,
    Não entendi? desculpe sou leigo no assunto não entendi, o código funciona? eu preciso fazer alguma modificação me ajude por favor.
    good guy
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Como converter dia da semana em data Empty Como converter dia da semana em data

    Mensagem  good guy em 12/11/2018, 18:20

    Olá Messias,

    Aqui é o Good Guy,

    Teste o aplicativo agora. Fiz algumas modificações no seu aplicativo. Acrescentei um campo à uma de suas tabelas. Coloquei a cláusula INSERT INTO na função do mestre João Paulo e aperfeiçoei a função provendo uma saída da função caso a condição do dia atual do registro da aula do aluno for em outro dia.
    avatar
    MessiasL
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 24/10/2018

    [Resolvido]Como converter dia da semana em data Empty Como converter dia da semana em data

    Mensagem  MessiasL em 12/11/2018, 18:33

    Olá Good Guy,
    Boa tarde, obrigado pelo contato mas não consegui entender eu terei que atualizar semanalmente as aulas? o meu intuito e assim cadastra-lo e selecionar o dia da aula e depois eu possa criar um relatório que servira com uma lista de presença. que ao selecionar a data do dia puxe os alunos cadastrados naquele determinado dia e horário da semana.
    good guy
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Como converter dia da semana em data Empty Como converter dia da semana em data

    Mensagem  good guy em 12/11/2018, 18:39

    Olá Messias,

    Um problema de cada vez, há de convir que para gerar um relatório você teria que criar um campo na tabela para receber o dia da semana. Certo? O campo txtResultado tem que ser vinculado a um campo da tabela, exatamente como o mestre João Paulo na mensagem N.º 8 diz. A sua dúvida inicial era esta:

    Código:
    ... gostaria de uma função que convertesse o campo dia da semana em data completa contendo o dia o mês e o ano seria possível já pesquisei mas achei nada concreto sobre isso. peço encarecidamente ajuda.

    Minha pergunta é, sua dúvida inicial foi atendida?


    Última edição por good guy em 12/11/2018, 19:56, editado 1 vez(es)
    avatar
    MessiasL
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 24/10/2018

    [Resolvido]Como converter dia da semana em data Empty Como converter dia da semana em data

    Mensagem  MessiasL em 12/11/2018, 19:20

    Obrigado a todos minha duvida inicial de converter o texto em dia da semana foi atendida obrigado a todos.
    good guy
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Como converter dia da semana em data Empty Como converter dia da semana em data

    Mensagem  good guy em 12/11/2018, 19:33

    Olá Messias,

    O fórum todo agradece. Segue em anexo o mesmo programa com relatório de todos os alunos.
    Anexos
    [Resolvido]Como converter dia da semana em data AttachmentDatabase2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (56 Kb) Baixado 11 vez(es)

      Data/hora atual: 25/10/2020, 19:04