TRANSFORMAR MOEDA EM VALOR POR EXTENSO

USUARIO.EXCLUIDOS 18/04/2007 11:13:17
#212497
Pessoal, bom dia.

Estou precisando de uma rotina para o Access que transforme valores em moeda em valores por extenso.
Ex.: R$ 185.200,00 transformar para: Cento e oitenta e cinco mil e duzentos reais.
Alguém conhece alguma rotina que faça essa transformação?
Obrigado pela força!
DANIELCPAETE 18/04/2007 11:32:41
#212500 Resposta escolhida
ai amigo aqui no site tem algumas rotinas que você poderia usar no VBA do access

da uma olhada nesta dica

http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=3743&TxtSearch=EXTENSO&CmbSort=&varPagina=1
WEBER 18/04/2007 11:37:36
#212502
vamos la
coloque essa dll no system32 nao precisa registrar é apenas uma função de conversão

no form coloque na declaração das variaveis

Private Declare Function Extenso Lib "Extens32.dll" Alias "extenso" (ByVal Valor As String, ByVal Retorno As String) As Integer

chame a sub abaixo e pronto onde tu define de onde buscar o valor numerico e pra onde deve ser enviado o convertido


'sub procedimento de preencheimento por extenso
[c]Sub PreencheExtenso()
   Dim strValor As String
   strValor = R$0,00 '<< obtem o valor numerico
   textoextenso.Text = "(" & PassaExtenso(strValor) & ")"  '<< transfere o valor convertido
End Sub


'função de conversão
Public Function PassaExtenso(Valor As String) As String
  On Error GoTo Passa_Err
  Dim Retorno$, X%
  Retorno$ = Space$(512)
  X% = Extenso(Valor, Retorno$)
  PassaExtenso = Trim$(Retorno$)
Passa_Fim:
  Exit Function
Passa_Err:
  MsgBox Error$(Err)
  Resume Passa_Fim
End Function

[/c]
USUARIO.EXCLUIDOS 18/04/2007 11:45:25
#212504
Pessoal, obrigado pela força!
Tópico encerrado , respostas não são mais permitidas
Voltar