APARECER 0 A ESQUERDA

CJMCARDOSO 10/09/2010 11:51:54
#352610
OI bom dia galera

To com uma duvida simples mas nao me lembro como resolver tenho um sistema controle de balança de peso onde registra o peso exato de cada receita bom ele ta funcionando ok , mas o cliente pediu para que fizesse umas atauliaçõe no sistema uma delas tem que aparecer o 0 por exemplo se o sistema registrar 1,40000 ele arredonda para 1,4 nao pode tem que ficar assim mesmo 1,4000
MARCOSLING 10/09/2010 12:45:00
#352617
Mas vc não disse que queria que APARECESSE Zeros à esquerda??
WEBMASTER 10/09/2010 12:48:00
#352619
Um formatnumber resolve seu problema, basta estudar o uso da função
ANDPAG 10/09/2010 14:13:45
#352630
format(suavariavel,[Ô]####0.000[Ô]) - isso como vc disse ai agora se for a esquerda

format(suavariavel,[Ô]00000[Ô])
DIOGOMUNARIN 10/09/2010 16:12:36
#352651
mas é zero a esquerda ou a direita?
CJMCARDOSO 10/09/2010 20:28:59
#352681
desculpa a direita exemplo 1,4000 ele aparece 1,4 teria que ser 1,4000
PASCOAL 12/09/2010 15:59:36
#352797
Resposta escolhida
TENTA ISSO : MsgBox Format([Ô]1,400[Ô], [Ô]###,#0.#000[Ô])

QQ COISA ME AVISE...
CJMCARDOSO 12/09/2010 21:15:28
#352805
Nao deu certo fiz assim olha em 1,400 aparece 1,4

Private Sub Command1_Click()
Dim Valor As Double

Valor = Format(Text1.Text, [Ô]####0.000[Ô])
MsgBox (Valor)

End Sub
PASCOAL 13/09/2010 04:50:22
#352817
TENTA ISSO :

Private Sub Command1_Click()
Dim Valor As String

If Not IsNumeric(Text1.Text) Then MsgBox [Ô]FAVOR INFORMAR UM VALOR[Ô], vbInformation: Text1.SetFocus: Exit Sub

Valor = Format(Text1.Text, [Ô]###,#0.#000[Ô])
MsgBox Valor
End Sub
CJMCARDOSO 13/09/2010 05:47:22
#352818
Bom funciono mas isso que eu fiz é teste na hora de gravar no db vai funcionar uso mysql e o campo decimal com 5 casas decimais.
PASCOAL 13/09/2010 10:06:28
#352839
Aumente mais um 0 no format ai fica com 5 zeros

Valor = Format(Text1.Text, [Ô]###,#0.#0000[Ô])

Se Funcionou finalize o tópico.

Abraço
Página 1 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas