[Resolvido]Data Por Extenso

Eu Tenho um modulo e um formulário e gostaria que ele me mostrasse o valor por extenso atualmente ele me mostra assim:
08/02/2019 (Ao(s) 08 dias do mês de fevereiro do ano de dois mil e dezenove)

E quero que mostre assim:


08/02/2019 (Ao(s) 8 dias do mês de fevereiro do ano de dois mil e dezenove) assim que está mostrando e não é assim que quero e sim com o está abaixo
08/02/2019 (Ao(s) Oito dias do mês de fevereiro do ano de dois mil e dezenove)
veja o o modelo que quero fazer em anexo

https://www.dropbox.com/home?file_subpath=%2FVencimento.mdb&preview=Vencimento.rar

Arquivo não existe no Dropbox

Usando a busca;

https://www.maximoaccess.com/t230-resolvidodata-por-extenso#1206

Oi bom dia obrigado por tentar me ajudar mas não é assim que eu quero
Acho que não soube explicar é assim:

Eu tenho uma tabela com o campo vencimento contém o dado 13/02/2018 formato data hora completa
um formulário com um campo vencimento vindo da tabela e uma caixa de de texto com com o nome txtextenso
quero informar na txtextenso no referido formulário o seguinte valor (Ao(s) 13 dias de Fevereiro do ano de dois mil e dezoito

Estou trabalhando com office 2010

Eu acho que agora me expliquei melhor qual o meu objetivo

meus agradecimentos

...

Boa tarde....

Copie e cole o código em um módulo, salve.
É o mesmo código que o JPaulo te passou

JPaulo escreveu:Usando a busca;

https://www.maximoaccess.com/t230-resolvidodata-por-extenso#1206

Fiz apenas uma adaptação, portanto...siga as instruções que ele passou na mensagem do link

Código:

Function DataExtenso(dtData As Date) As String
Dim strRet As String
    
    strRet = vbNullString
 strRet = IIf(Day(dtData) = 1, "primeiro","(Ao(s))   " &  NumeroPorExtenso(Day(dtData))) & " de " & LCase(Format(dtData, "mmmm")) & " de " & NumeroPorExtenso(Year(dtData))
    DataExtenso = strRet
    

End Function

Function NumeroPorExtenso(lngNumero As String) As String
Dim arrUnidade() As String
Dim i As Long
Dim strNumeroReverso As String
Dim strRet As String
Dim strAux As String

    arrUnidade() = Split(" um dois três quatro cinco seis sete oito nove")
    
    strNumeroReverso = StrReverse(lngNumero)
    For i = 1 To Len(CStr(lngNumero))
        strAux = vbNullString
        Select Case i
            Case 1 'UNIDADE
                strRet = arrUnidade(Mid(strNumeroReverso, 1, 1)) & strRet
            Case 2 'Dezena
                Select Case Mid(strNumeroReverso, 2, 1)
                    Case 0
                        strAux = strRet
                    Case 1
                        Select Case Mid(strNumeroReverso, 1, 1)
                            Case 0: strAux = "dez"
                            Case 1: strAux = "onze"
                            Case 2: strAux = "doze"
                            Case 3: strAux = "treze"
                            Case 4: strAux = "quatorze"
                            Case 5: strAux = "quinze"
                            Case 6: strAux = "dezesseis"
                            Case 7: strAux = "dezessete"
                            Case 8: strAux = "dezoito"
                            Case 9: strAux = "dezenove"
                        End Select
                        Case 2: strAux = "vinte"
                        Case 3: strAux = "trinta"
                        Case 4: strAux = "quarenta"
                        Case 5: strAux = "cinquenta"
                        Case 6: strAux = "sessenta"
                        Case 7: strAux = "setenta"
                        Case 8: strAux = "oitenta"
                        Case 9: strAux = "noventa"
                End Select
                If (Mid(strNumeroReverso, 2, 1) > 1) And (Mid(strNumeroReverso, 1, 1) > 0) Then
                    strRet = strAux & " e " & strRet
                Else
                    strRet = strAux
                End If
            Case 3
                Select Case Mid(strNumeroReverso, 3, 1)
                    Case 0
                    Case 1
                        If Mid(strNumeroReverso, 1, 2) > 0 Then
                            strAux = "cento"
                        Else
                            strAux = "cem"
                        End If
                    Case 2
                        strAux = "duzentos"
                    Case 3
                        strAux = "trezentos"
                    Case 5
                        strAux = "quinhentos"
                    Case Else
                        strAux = arrUnidade(Mid(strNumeroReverso, 3, 1)) & "centos"
                End Select
                If Mid(strNumeroReverso, 1, 2) > 0 Then
                    strRet = strAux & " e " & strRet
                Else
                    strRet = strAux
                End If
            Case 4
                strAux = arrUnidade(Mid(strNumeroReverso, 4, 1)) & " mil"
                If Mid(strNumeroReverso, 3, 1) > 0 Then
                    strRet = strAux & " e " & strRet
                Else
                    strRet = strAux & strRet
                End If
        End Select
    Next i
    NumeroPorExtenso = strRet
    Erase arrUnidade
End Function

Fiz um exemplo para um formulário.   Não se aplica a relatórios.


Bons estudos.

Obrigado mais uma vez mas continua na mesma
vejam bem

1.a Tabela tem um campo de nome data só tem esse campo
2.no formulário tem um campo dessa tabela chamado data que está com seguinte valor inserido: 13/02/2019
3.no formulário tem uma caixa de texto chamada txtExtenso
4. na txtExtenso quero que me retorne o valor exatamente como está escrito aqui: (Ao(s), Treze dias de Fevereiro de dois mil e dezenove)

Obrigado mais uma vez

Fica complicado ajudar...

Não sei qual o seu nível de conhecimento de programação, mas.....

Baixe novamente o arquivo.

Tente ver as mudanças que foram feitas.

Tente adaptar ao teu projeto.

Não amigo não resolveu ainda conforme consta na mensagem nº 7 não se preocupe quando for resolvido vou marcar resolvido, se não foi resolvido não marcar porque não consegui resolver espero que entenda

Vá até a mensagem de numero seis....tem um arquivo novo lá....

Muito obrigado amigo realmente é isso aí que estou precisando muito grato pela sua ajuda e todos os outros membros que entenderam ou não entenderam o que eu queria mas que mesmo assim me ajudaram, agora eu queria entender a montagem do extenso