FORMATO EM MOEDA

USUARIO.EXCLUIDOS 10/06/2007 08:53:44
#220534
Preciso transformar esse formato em moeda e não consigo , sera se é dificil mesmo?

no banco 254525

como faço esse formato: 2.545,25

Obrigado galera nunca fiquei na mão com voçês.
USUARIO.EXCLUIDOS 10/06/2007 11:30:07
#220539
Debug.Print Format("549596979659,4", "R$#,##0.00;(R$#,##0.00)")
ICEMAN 10/06/2007 11:31:33
#220540
faz assim so que depois desse numero todo ele coloca ,00 e nao ,25

tenta ai

text1.text = format(text1, "#,##0.00")

agora com simbolo R$ fica assim

text1.text = Format(text1, " R$ #,##0.00")

para ficar 2.545,25 o usuario tem que colocar
2545,25
ai ele completas com pontos se nao colocar a virgula fica
254.525,00 entendeu

espero ter ajudado
USUARIO.EXCLUIDOS 10/06/2007 22:17:48
#220596 Resposta escolhida
Não sei nao, talvez isto que te resolva !


No form


Option Explicit

Private Sub Command_Click()
Dim strInteiro As String
Dim strCentavos As String
Dim strValorConvertido As String
Dim dblValor As Double

    If IsNumeric(Text.Text) Then
        strInteiro = Mid(Text.Text, 1, Len(Text.Text) - 2)
        strCentavos = Mid(Text.Text, Len(Text.Text) - 1, 2)
        strValorConvertido = strInteiro & "," & strCentavos
        
        MsgBox "Seria " & Format(strValorConvertido, "###,##0.00") & " o formato desejado ?"
        
        dblValor = CDbl(strValorConvertido)
        MsgBox "Caso precise deste valor para cálculo utilize esta variável " & dblValor
        
    
    End If
    
End Sub

Private Sub Text_Change()
    If Text.Text = "" Then
        Command.Enabled = False
        
    Else
        Command.Enabled = True
        
    End If

End Sub

Private Sub Text_KeyPress(KeyAscii As Integer)
    If Not IsNumeric(KeyAscii) Then
        KeyAscii = 0
        
    End If

End Sub


Na verdade to bonzinho hoje !
Tópico encerrado , respostas não são mais permitidas
Voltar