Arredondamento - Alguem j� viu isso??

Question

Boa Tarde...Estou com um dilema. Possuo uma DBGrid, e uma determinada coluna eu tenho que digitar a quantidade do produto, essa quantidade � uma decimal.Se eu colocar 5,29, a bendita DbGrid preenche 5...

Paullsoftware · Answer

tente assim:if (DBGrid2.SelectedIndex = 4) and (Key = #9) then     begin       sCampo := DBGrid2.Fields[3].AsFloat;       sCampo := Round(sCampo*100)/100;       DBGrid2.Fields[3].AsString := FormatFloat(�,,0.00�,sCampo);     end...

Marco Salles · Answer

Bem , pode ate dar certo o que o Paulo Lhe sugeriu , mas acho que as Informa��es sobre o tipo de Banco , O tipo do Dado , os Componentes de Acesso etc , devem  serem informadas...

Facc · Answer

[quote:018b3dae76=�PaullSoftware�]tente assim:if (DBGrid2.SelectedIndex = 4) and (Key = #9) then     begin       sCampo := DBGrid2.Fields[3].AsFloat;       sCampo := Round(sCampo*100)/100;       DBGrid2.Fields[3].AsString := FormatFloat(�,,0.00�,sCampo);     end[/quote:018b3dae76]Valeu pela ajuda amigo...Consegui resolver por outro modono proprio campo da Query, eu coloquei [code:1:018b3dae76],,0.00[/code:1:018b3dae76] nos eventos DisplayFormat e EditFormat....

Paullsoftware · Answer

[code:1:1e794ef0d2]f (DBGrid2.SelectedIndex = 4) and (Key = #9) then begin sCampo := DBGrid2.Fields&91;3&93;.AsFloat; sCampo := Round(sCampo*100)/100; DBGrid2.Fields&91;3&93;.AsString := FormatFloat(�,,0.00�,sCampo); end[/code:1:1e794ef0d2][quote:1e794ef0d2]Bem , pode ate dar certo o que o Paulo Lhe sugeriu , mas acho que as Informa��es sobre o tipo de Banco , O tipo do Dado , os Componentes de Acesso etc , devem serem informadas[/quote:1e794ef0d2] correto Marcos, pois, se a informa��o vem do campo de uma tabela, se esse campo for do tipo, Numeric, Float, Currency ou semelhante... basta mudar a propriedade [b:1e794ef0d2]Currency[/b:1e794ef0d2] do campo para [b:1e794ef0d2]TRUE[/b:1e794ef0d2].....

Alexandre_torres · Answer

tenta mutiplicar o Round por 10 e dividir por 10T+...

Aroldo Zanela · Answer

Colega,Existem diversas formas, algumas j� apresentadas. Posso citar tamb�m:[code:1:4454bdfd90]if (DBGrid2.SelectedIndex = 4) and (Key = #9) thenbegin  DBGrid2.Fields&91;3&93;.AsCurrency := Trunc(DBGrid2.Fields&91;3&93;.AsCurrency*100)/100;end;[/code:1:4454bdfd90]...