MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


4 participantes

    [Resolvido]Data por extenso

    avatar
    souzati05
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 05/05/2014

    [Resolvido]Data por extenso Empty [Resolvido]Data por extenso

    Mensagem  souzati05 7/3/2017, 03:02

    Boa noite
    Tenho um campo em um formulário

    Data_Validade
    neste campo digito a data e aparece nesta mascara 22/03/2017 que é a que eu quero

    ai mais abaixo tenho outro campo

    Data_Validade_Extenso
    neste campo gostaria de puxar a mesma data do campo Data_Validade, so que me retornasse assim:

    22 DE MARÇO DE 2017
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3217
    Registrado : 13/12/2016

    [Resolvido]Data por extenso Empty Re: [Resolvido]Data por extenso

    Mensagem  Alexandre Fim 7/3/2017, 04:28

    Boa noite Souza

    Fiz um pequeno exemplo de data por extenso.

    Espero ter ajudado.

    Att,
    Anexos
    [Resolvido]Data por extenso AttachmentDataExtenso.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (25 Kb) Baixado 140 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Data por extenso Empty Re: [Resolvido]Data por extenso

    Mensagem  FabioPaes 7/3/2017, 12:36

    Bom dia aos amigos!

    A Titulo de conhecimento:

    Não ha a necessidade de criar uma função para isso! Basta apenas utilizarmos a função interna Format()

    Ex:

    Format(Me.txtData, "dd") & " de " & Format(Me.txtData, "mmmm") & " de " & Format(Me.txtData, "yyyy")

    Veja que Formato primeiro para o dd (07) acrescento ( de ), formato para mmmm (Março) acrescento ( de ) e formato novamente para o yyyy (2017).


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    souzati05
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 05/05/2014

    [Resolvido]Data por extenso Empty Re: [Resolvido]Data por extenso

    Mensagem  souzati05 7/3/2017, 12:57

    Obrigado amigos Resolvido
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Data por extenso Empty Re: [Resolvido]Data por extenso

    Mensagem  Alvaro Teixeira 7/3/2017, 13:06

    Olá a todos!
    Tiago obrigado pelo retorno.
    Sei que é utilizador recente, no entanto escrever em maiúsculas é o mesmo que gritar, veja nas...
    REGRAS DO FÓRUM

    1. Tenha paciência com quem coloca aqui as suas duvidas.
    2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
    3. Não colocar diversas vezes a mesma dúvida.
    4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
    5. Retorne sempre se deu certo, esse retorno é muito importante.
    6. Respeite toda a equipe Staff e demais membros deste fórum.
    7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
    8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
    9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
    10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
    11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
    12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
    13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
    14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks").
    15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.


    Estamos cá para ajudar, repare, deve editar a mensagem nº 1 (clicando no botão EDIT) e retificar.

    Abraço e bons estudos com o MaximoAccess


    Última edição por ahteixeira em 7/3/2017, 14:40, editado 1 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3217
    Registrado : 13/12/2016

    [Resolvido]Data por extenso Empty Re: [Resolvido]Data por extenso

    Mensagem  Alexandre Fim 7/3/2017, 13:24

    FábioPaes,

    Também está correto, e mais prático também.

    Eu criei esta função para trazer o mês por extenso, e em Português, porque já me deparei com várias situações, em que o cliente usava sistema que havia desenvolvido, porém, o Windows instalado em sua máquina era em inglês.

    Outra situação também é a formatação de Data, usando o padrão de configuração regional, onde muitos usuários costumavam usar algumas formatações de data no Excel (Ex; 3 Nov 2012) exigidos pela organização em que trabalhavam, geralmente multinacionais.

    Com o passar do tempo, estas situações me fizeram criar padrões de desenvolvimento, classes, funções, módulos, para tratamento dos mais diversos dados.

    Força do hábito....rsss

    Um abraço.

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Data por extenso Empty Re: [Resolvido]Data por extenso

    Mensagem  Alvaro Teixeira 7/3/2017, 14:42

    Olá a todos,
    Alexandre, não vi o projecto.
    No entanto concordo, normalmente em corporações grandes o idioma adotado é EN.
    Obrigado pela explicação.
    Isto é que é se "MaximoAccess"
    Abraço a todos
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3217
    Registrado : 13/12/2016

    [Resolvido]Data por extenso Empty Re: [Resolvido]Data por extenso

    Mensagem  Alexandre Fim 7/3/2017, 15:00

    Obrigado ahteixeira !!!

    Modéstia à parte, hj sou desenvolvedor VB6, VB.Net, C# e SQL Server.
    Cara? Apesar dessas linguagens, Eu Adoro o Access !!!!.....rsssss

    Um abraço
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Data por extenso Empty Re: [Resolvido]Data por extenso

    Mensagem  Alvaro Teixeira 8/3/2017, 22:49

    Olá a todos,
    Alexandre eu também, e aqui não falta colegas que são autenticos apaixonados pelo Access Smile
    cheers

    Conteúdo patrocinado


    [Resolvido]Data por extenso Empty Re: [Resolvido]Data por extenso

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/4/2024, 21:10