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
    kaikis
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 11/11/2009

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

    Mensagem  kaikis 26/2/2010, 12:04

    Olá feras, preciso que a data no relatório seja por extenso como por exemplo: "Vinte e Seis de Fevereiro de Dois Mil e Dez."

    Grato pelo auxílio,

    kaikis
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 26/2/2010, 12:49

    Ola Kaikis bom dia.

    Cole esta função num modulo e salve.

    Download

    No evento ao formatar do seu Relatório, faça assim;

    Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Me.SeuCampoDataExtenso = DataExtenso(Me.SeuCampoData)
    End Sub


    Última edição por JPaulo em 13/2/2019, 11:32, editado 1 vez(es)


    .................................................................................
    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]Data por extenso Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Data por extenso Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Data por extenso Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 1/3/2010, 14:37

    Resolveu ?


    .................................................................................
    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]Data por extenso Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Data por extenso Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Data por extenso Folder_announce_new Instruções SQL como utilizar...
    avatar
    kaikis
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 11/11/2009

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

    Mensagem  kaikis 2/3/2010, 13:57

    Olá amigão, tentei mais não consegui, uma dúvida:
    que é Me.SeuCampoDataExtenso??? e ou outro DataExtenso(Me.SeuCampoData), se entendi é o campo que eu tenho na tabela???

    Grato,


    Kaikis
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 2/3/2010, 14:13

    Vamos lá com calma, que o tempo livre é cada vez menos rsrsrsrs

    Você deve ter um campo com a data no seu relatório, certo ?

    Tem de colocar uma caixa de texto vazia, para receber a data por extenso, eu dei-lhe o nome de SeuCampoDataExtenso

    No evento VBA do relatório, ao formatar, você coloca:

    Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Me.SeuCampoDataExtenso = DataExtenso(Me.SeuCampoDataDoRelatórioOuDaTabela)
    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]Data por extenso Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Data por extenso Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Data por extenso Folder_announce_new Instruções SQL como utilizar...
    avatar
    kaikis
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 11/11/2009

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

    Mensagem  kaikis 3/3/2010, 12:43

    Bom dia JPaulo, muito obrigado pelo auxílio, deu certo.


    Kaikis
    lgdelai
    lgdelai
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 146
    Registrado : 31/03/2012

    [Resolvido]Data por extenso Empty No meu caso não deu certo.

    Mensagem  lgdelai 3/9/2013, 01:37

    Olá J Paulo.

    No meu caso esta formula não deu certo pois quero inserir o valor por extenso
    no meio de um outro texto.

    veja como está meu código dentro da caixa de texto.

    ---------------------------------------------------------------

    ="Aos " & Format([Data];"dd") & " dias do mês de " & Format([Data];"mmmm") & " do ano de " & Format([Data];"yyyy") & " aconteceu o seguinte: bla bla bla bla bla"

    ---------------------------------------------------------------

    Eu gostaria que o 2013 fossse exibido (Dois Mil e Treze)

    para ficar assim: "Aos 13 dias do mês de agosto do ano de Dois Mil e Treze aconteceu o seguinte: bla bla bla bla bla"

    é possivel?
    Anexos
    [Resolvido]Data por extenso AttachmentBalaústre.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 54 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 3/9/2013, 11:55

    Bom dia Luiz;

    No seu caso é numeração por extenso e não data por extenso;

    É assim;

    ="Aos " & Format([Data];"dd") & " dias do mês de " & Format([Data];"mmmm") & " do ano de " & NumeroPorExtenso(Format([Data];"yyyy")) & " aconteceu o seguinte: bla bla bla bla bla"

    Nota:
    Nova duvida, novo tópico.
    Anexos
    [Resolvido]Data por extenso AttachmentBalaústre_old.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (42 Kb) Baixado 125 vez(es)


    .................................................................................
    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]Data por extenso Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Data por extenso Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Data por extenso Folder_announce_new Instruções SQL como utilizar...
    avatar
    raijeweb
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 01/04/2016

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

    Mensagem  raijeweb 8/2/2019, 19:00

    Boa Tarde a todos estou precisando também de resolver isto como faria para o dia 13 também mostrar por extenso

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 16:43