a b c d e

1074 palavras 5 páginas
Function Extenso_Valor(valor As Double) As String Dim strMoeda As String Dim cents As Variant Dim decimalSep As String

' Se o valor for igual ou maior que 1 quatrilhao
' passar erro e sair da funcao If valor > 999999999999999# Then Extenso_Valor = "Valor excede 999.999.999.999.999" Exit Function End If

' Se valor for igual a 1, a unidade está no singular If WorksheetFunction.RoundDown(valor, 0) = 1 Then
' a string da moeda no singular strMoeda = " real"
' Se for maior que 1 a unidade está no plural ElseIf WorksheetFunction.RoundDown(valor, 0) > 1 Then strMoeda = " reais" End If ' Remove os centavos cents = valor - WorksheetFunction.RoundDown(valor, 0)
' Remove os centavos do valor valor = valor - CDbl(cents)
' Passo o extenso dos centavos cents = centavos(CDbl(cents) * 100)
' End If
' Caso a string seja diferente de branco e valor seja maior ou igual a 1 If cents "" And valor >= 1 Then
' acrescentar uma vírgula antes do extenso cents = " e " & cents End If
' Iniciar o processo de conversao dos valores longos strMoeda = Trim(Trilhoes(valor)) & strMoeda & cents strMoeda = Replace(strMoeda, ", e", " e") strMoeda = Replace(strMoeda, ", r", " r") If Left(strMoeda, 2) = "e " Then strMoeda = Mid(strMoeda, 3, Len(strMoeda)) 'ElseIf Left(strMoeda, 5) = "mil e" Then ' strMoeda = Mid(strMoeda, 5, Len(strMoeda)) End If vzz = "00000000000000000000" vtam = Len(Trim(Mid(Trim(valor), 2, 100))) If Right(vzz + vzz + vzz + vzz, vtam) = Mid(Trim(valor), 2, 100) And InStr(UCase(strMoeda), UCase("es ")) > 0 Then vetor = Split(strMoeda, " ") vtrocar = vetor(UBound(vetor)) strMoeda = Replace(strMoeda, vtrocar, "de " + vtrocar) End If

Extenso_Valor = strMoeda

End

Relacionados

  • a b c d
    462 palavras | 2 páginas
  • A b c d
    1096 palavras | 5 páginas
  • Hepatites Virais B,C e D
    3046 palavras | 13 páginas
  • Vitaminas a, b, c, d, e e k nos padrões da abtn
    973 palavras | 4 páginas
  • Curvas Do Disjuntor Curva B C D E Disjuntor Motor
    333 palavras | 2 páginas
  • O p a p e l d o d i r e i t o n a c o n t a b i l i d a d e
    1196 palavras | 5 páginas
  • e o que sua deficiência ou excesso podem causar : a) Vitamina D. b) Hormônio de Crescimento ( GH ). c) Paratormônio d) Calcitonina.
    560 palavras | 3 páginas
  • R e s t i t u i ç ã o d e b e m a p r e e n d i d o
    317 palavras | 2 páginas
  • Trabalho proj. invest. fgv - lista de exercício a, b, c, d(estudos de caso)
    5741 palavras | 23 páginas
  • AV 2 Ciências Contábeis- Contabilidade social e ambiental – unopar Resposta: C – A – B – D – A.
    265 palavras | 2 páginas