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]Extrair o Mês de um campo data

    Connekta Informatica
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1060
    Registrado : 01/07/2011

    [Resolvido]Extrair o Mês de um campo data Empty Extrair o Mês de um campo data

    Mensagem  Connekta Informatica em 10/9/2011, 16:54

    Bom dia,

    Eu tenho um campo data (10/09/2011) tem extrair o mês (09) desse campo?

    Obrigado.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Extrair o Mês de um campo data Empty Re: [Resolvido]Extrair o Mês de um campo data

    Mensagem  vieirasoft em 10/9/2011, 17:01

    Uma correcção. Com este código faz isso ao digitar directamente no campo. Penso que seja isso que quer?

    NomedoCampo = MesExtenso(Month(NomedoCampodata))
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Extrair o Mês de um campo data Empty Re: [Resolvido]Extrair o Mês de um campo data

    Mensagem  vieirasoft em 10/9/2011, 17:15

    Amigo, desculpe que a minha internet caiu por 2X e não terminei direito a explicação:

    Pode definir o campo na tabela com máscara assim:

    00-00-0000;0;_

    Pode utilizar uma outra caixa de texto para recolher ou então utilizar esta função:

    Function MesExtenso(Mes as Integer)As String
    Select Case Mes
    Case 1
    MesExtenso = "Janeiro"
    Case 2
    MesExtenso = "Fevereiro"
    Case 3
    MesExtenso = "Março"
    Case 4
    MesExtenso = "Abril"
    Case 5
    MesExtenso = "Maio"
    Case 6
    MesExtenso = "Junho"
    Case 7
    MesExtenso = "Julho"
    Case 8
    MesExtenso = "Agosto"
    Case 9
    MesExtenso = "Setembro"
    Case 10
    MesExtenso = "Outubro"
    Case 11
    MesExtenso = "Novembro"
    Case 12
    MesExtenso = "Dezembro"

    End Function

    No formulário chame a função no campo que quer por extenso

    Nomedocampo = MesExtenso(Month(seucampoData))
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1060
    Registrado : 01/07/2011

    [Resolvido]Extrair o Mês de um campo data Empty Re: [Resolvido]Extrair o Mês de um campo data

    Mensagem  Connekta Informatica em 11/9/2011, 15:57

    Ok!Obrigado.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Extrair o Mês de um campo data Empty Re: [Resolvido]Extrair o Mês de um campo data

    Mensagem  vieirasoft em 11/9/2011, 16:00

    Um abraço e bom trabalho
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Extrair o Mês de um campo data Empty Re: [Resolvido]Extrair o Mês de um campo data

    Mensagem  criquio em 11/9/2011, 16:36

    Não sei se eu não entendi bem a questão, mas um =Format([CampoDaData];"mmmm") tambem não resolveria? É só curiosidade para saber se entendi mal ou não Very Happy


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Extrair o Mês de um campo data Empty Re: [Resolvido]Extrair o Mês de um campo data

    Mensagem  vieirasoft em 11/9/2011, 16:44

    Tenho a certeza que sim, mas a função garante o resultado.
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Extrair o Mês de um campo data Empty Re: [Resolvido]Extrair o Mês de um campo data

    Mensagem  vieirasoft em 11/9/2011, 16:45

    Aliás o Mestre costumava dizer...tantas maneiras de fazer Nestum....
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Extrair o Mês de um campo data Empty Re: [Resolvido]Extrair o Mês de um campo data

    Mensagem  criquio em 11/9/2011, 17:26

    Ah sim. Certíssimo. É que eu fiquei na dúvida se tinha entendido bem a questão proposta pelo colega. Pensei que talvez eu tivesse entendido outra coisa Very Happy


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


      Data/hora atual: 4/12/2020, 01:26