APARECER 0 A ESQUERDA
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
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
Mas vc não disse que queria que APARECESSE Zeros à esquerda??
Um formatnumber resolve seu problema, basta estudar o uso da função
format(suavariavel,[Ô]####0.000[Ô]) - isso como vc disse ai agora se for a esquerda
format(suavariavel,[Ô]00000[Ô])
format(suavariavel,[Ô]00000[Ô])
mas é zero a esquerda ou a direita?
desculpa a direita exemplo 1,4000 ele aparece 1,4 teria que ser 1,4000
TENTA ISSO : MsgBox Format([Ô]1,400[Ô], [Ô]###,#0.#000[Ô])
QQ COISA ME AVISE...
QQ COISA ME AVISE...
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
Private Sub Command1_Click()
Dim Valor As Double
Valor = Format(Text1.Text, [Ô]####0.000[Ô])
MsgBox (Valor)
End Sub
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
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
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.
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
Valor = Format(Text1.Text, [Ô]###,#0.#0000[Ô])
Se Funcionou finalize o tópico.
Abraço
Tópico encerrado , respostas não são mais permitidas