[Resolvido]Como converter dia da semana em data

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.

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

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!

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!

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

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

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!!!

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

Veja:
Download

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


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.

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.

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.

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?

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

Olá Messias,

O fórum todo agradece. Segue em anexo o mesmo programa com relatório de todos os alunos.