[Resolvido]Data por extenso

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

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

Resolveu ?

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

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

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


Kaikis

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?

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.

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