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]Data por extenso

    avatar
    kaikis
    Novato
    Novato

    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 em Sex 26 Fev 2010, 07: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 100%

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

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

    Mensagem  JPaulo em Sex 26 Fev 2010, 07: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 Qua 13 Fev 2019, 06: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 100%

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

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

    Mensagem  JPaulo em Seg 01 Mar 2010, 09: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 100%

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

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

    Mensagem  kaikis em Ter 02 Mar 2010, 08: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 100%

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

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

    Mensagem  JPaulo em Ter 02 Mar 2010, 09: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 100%

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

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

    Mensagem  kaikis em Qua 03 Mar 2010, 07:43

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


    Kaikis
    lgdelai
    lgdelai
    Intermediário
    Intermediário

    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 em Seg 02 Set 2013, 20: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 52 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Ter 03 Set 2013, 06: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 111 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  raijeweb em Sex 08 Fev 2019, 14:00

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

      Data/hora atual: Qua 05 Ago 2020, 11:47