Treze
|
SÃO VICENTE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 19/07/2012 14:39 hs
tenta isto no lostfocus
Private Sub Text1_LostFocus()
Text1.Text = Replace(Replace(Text1.Text, ",", ""), ".", "")
'ai você formata
Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 2) & "," & Right(Text1.Text, 2)
Text1.Text = Format(Text1.Text, "Currency")
End Sub
|
|
|
|
|
|
|
|
Postada em 19/07/2012 14:39 hs
Ops..me desculpe a intimidade, é força do habito..
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/07/2012 14:52 hs
|
|
|
|
|
|
Postada em 19/07/2012 14:57 hs
Fofo é o seguinte, resolvemos o problema das virgulas, agora se digitar a virgula ou as virgulas, quando perde o foco ele elimina todas e formata para moeda, porém..porém não consigo digitar valores quebrados ex: se digito 1,5 vira 15,00 se digito 1,50, vira 15,00 também.rss
bom acho que estamos no caminho...vou continuar tentando, ou melhor dizendo vamos continuar tentando.
Obrigada pela tentativa...se tiver mais alguma sugestão será bem vinda.
Alias, só tem nós dois nesse forum? ninguem mais se aventura dar uma sugestão? rsrs
t mais...e obrigada mais uma vez..Ah só pra constar, eu ja compilei um EXE, com sua função e ja ta no cliente, ate eu arrumar outra solução.
ahh deixa eu mostrar como eu fiz pra ver se ta certo mesmo.
TxtValorPago.Text = Replace(Replace(TxtValorPago.Text, ",", ""), ".", "")
If TxtValorPago.Text = "" Then
TxtValorPago.Text = "R$ 0,00"
TxtValorPago.Text = Format(TxtValorPago.Text, "currency")
Else
TxtValorPago.Text = Format(TxtValorPago.Text, "currency")
End If
ta no lotsfocus do txtvalorpago
bjs
ah eu conheço o vbmania to dando uma vasculhada nele, estava fora do ar, fiquei ontem ate as 3 da manhã tentando entrar nele..obrigada pela dica...tambem acho ele otimo.
|
|
TÓPICO EDITADO
|
|
|
|
Euzébio
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/07/2012 15:04 hs
Patricia,
Paricularmente prefiro usar o controle InputBox32.ocx.
Quando se precisa fazer cálculos com ele é simples:
NumeberBox1.Value = NumberBox2.value - NumberBox3.Value (por exemplo).
Os valores já são formatdos enquanto digita. A separação da parte decimal pode ser feita com ponto ou com vírgula (presentes no teclado numérico).
Boa sorte em seus códigos.
Euzébio.
|
|
|
|
|
|
Postada em 19/07/2012 15:12 hs
Obrigada Euzébio, vou dar uma respirada to de cabeça quente, depois vou dar uma olhada no inputbox,talvez seja a solução do meu problema.
vou fazer um teste com inputbox e posto os resultados
T mais
|
|
|
|
|
