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

    Compartilhe
    avatar
    kaikis
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Data por extenso

    Mensagem  kaikis em 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 100%

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

    Re: [Resolvido]Data por extenso

    Mensagem  JPaulo em 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

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Data por extenso

    Mensagem  JPaulo em 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

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    avatar
    kaikis
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Data por extenso

    Mensagem  kaikis em 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 100%

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

    Re: [Resolvido]Data por extenso

    Mensagem  JPaulo em 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

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    avatar
    kaikis
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Data por extenso

    Mensagem  kaikis em 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 100%

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

    No meu caso não deu certo.

    Mensagem  lgdelai em 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
    Balaú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 : 10420
    Registrado : 04/11/2009

    Re: [Resolvido]Data por extenso

    Mensagem  JPaulo em 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
    Balaústre_old.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (42 Kb) Baixado 101 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

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    avatar
    raijeweb
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Data por extenso

    Mensagem  raijeweb em 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

      Data/hora atual: 20/2/2019, 22:15