MaximoAccess

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

Obrigado

Administração do MaximoAccess

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, 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 100%

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

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

    Mensagem  JPaulo em Sex 26 Fev 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 Qua 13 Fev 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 100%

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

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

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

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

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

    Mensagem  JPaulo em Ter 02 Mar 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 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, 12: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 Ter 03 Set 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 50 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Ter 03 Set 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 102 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 : 79
    Registrado : 01/04/2016

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

    Mensagem  raijeweb em Sex 08 Fev 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: Qua 19 Jun 2019, 14:23