FORMATACAO DE UM CAMPO DECIMAL
Boa Tarde.
Tenho um campo na tabela onde a estrutura do mesmo é decimal(13,2)
Tenho que pegar esse campo e formata-lo com zeros a esquerda.
ou seja
o campo esta com esse valor 128.69
Preciso Deixa-lo assim 000000000128.69
Porem quando o formata ele fica assim
000000012869.00
e preciso dele assim 000000000128.69
eu utilizo MySql.
Atenciosamente
Leandro
Tenho um campo na tabela onde a estrutura do mesmo é decimal(13,2)
Tenho que pegar esse campo e formata-lo com zeros a esquerda.
ou seja
o campo esta com esse valor 128.69
Preciso Deixa-lo assim 000000000128.69
Porem quando o formata ele fica assim
000000012869.00
e preciso dele assim 000000000128.69
eu utilizo MySql.
Atenciosamente
Leandro
tenta assim
MsgBox Format(128.69, [Ô]00000000.0##,#[Ô])
Citação:MARCELO-TREZE escreveu:
tenta assimMsgBox Format(128.69, [Ô]00000000.0##,#[Ô])
Só não esquece de fazer um REPLACE.
MsgBox Replace(Format(128.69, [Ô]0000000000000.00[Ô]), [Ô],[Ô], [Ô].[Ô])
Créditos para o colega MARCELO-TREZE.
Eu ja tinha tentado dessa forma, e continua com o mesmo problema.
Resolvi assim
txtVlrTotal.Text = Replace(Format(rsCto.Fields([Ô]cto_totalprest[Ô]).Value, [Ô]000000000000000[Ô]), [Ô],[Ô], [Ô].[Ô])
txtVlrTotal.Text = Replace(Format(txtVlrTotal / 100, [Ô]0000000000000.00[Ô]), [Ô],[Ô], [Ô].[Ô])
Deu Certo.
Agradeço a Todos
txtVlrTotal.Text = Replace(Format(rsCto.Fields([Ô]cto_totalprest[Ô]).Value, [Ô]000000000000000[Ô]), [Ô],[Ô], [Ô].[Ô])
txtVlrTotal.Text = Replace(Format(txtVlrTotal / 100, [Ô]0000000000000.00[Ô]), [Ô],[Ô], [Ô].[Ô])
Deu Certo.
Agradeço a Todos
Tópico encerrado , respostas não são mais permitidas