Postada em 19/07/2012 15:45 hs
Gente vocês não vão acreditar mas......depois de um bom copo de suco de laranja, e umas torradinhas, olha a solução: acho que nem vou colocar a solução de tão tola que é, to ate com vergoha.rsrs
como eu sou boazinha e não quero matar vcs de curiosidade olha ai, funcionando perfeitamente, o cliente pode digitar a biblia inteira, que ele converte, pode colocar mil virgulas, e dez mil pontos..rsrs
Private Sub TxtValorPago_LostFocus()
'VERIFICO SE ESTA EM BRANCO
If TxtValorPago.Text = "" Then
TxtValorPago.Text = "R$ 0,00"
Else
'VERIFICO SE O QUE FOI DIGITADO É TEXO OU NUMERO
'(DETALHE A VIRGULA E O PONTO SÃO É TEXTO)
If Not IsNumeric(TxtValorPago.Text) Then
TxtValorPago.Text = "R$ 0,00" ' SÓ POR PRECAUSÃO PQ ELE JA CONVERTE EM NUMERO
Else
'SE FOI UM NUMERO CONVERTO PRA MOEDA VALOR MONETARIO
'E EXECUTO A SUBTRAÇÃO
TxtValorPago.Text = Format(TxtValorPago.Text, "currency")
TxtTroco.Text = Format(CDbl(TxtValorPago.Text) - CDbl(TxtValorDaCompra.Text), "Currency")
End If
End If
End Sub
pode testar eu garanto que funciona perfeitamente..dá pra acreditar?
Obrigada a todos que me ajudaram..beijão..como fecha o topico? rsrs
|
