Somar dados da Tabela String
25/11/2005
0
Vagner.oliveira
Posts
25/11/2005
Marcio.theis
25/11/2005
Vagner.oliveira
:arrow: Como eu utilizo este recurso :?:
25/11/2005
Ricardo_ascii
Se eu entendi bem eu faria assim:
------------------------------------------
var
d : double;
begin
d:=strtofloat(valgasto) + strtofloat(valrecibo);
Ricardo
25/11/2005
Vagner.oliveira
tenho uma tabela com estes campos, ValGasto e ValRecebido:
Ex;
Nome ValGasto ValRecebido
fulano 10,00 50,00
ciclano 5,00 0,00
beltrano 0,00 10,00
Total 15,00 60,00
gostaria de somar o total de cada campo utilizando um filtro em SQL, pois esse resultado é feito por mês
25/11/2005
Christian_adriano
with Query1 do begin Close; SQL.Text := ´select Sum(cast(Campo1 as numeric(10,2))) as Soma1, Sum(cast(Campo2 as numeric(10,2))) as Soma2 from dbTabela.db´; Open; end;
Espero ter ajudado.
[]´s.
28/11/2005
Vagner.oliveira
Ele não somou corretamente quando coloquei o valor com virgula.
Quando troquei para ponto ele somou corretamente, só que deu erro, dizendo que não é um ponto flutuante válido.
Como contornar este erro :?:
28/11/2005
Okama
28/11/2005
Okama
Var S: String; VALOR : double; begin VALOR := 0; ProgressBar1.Max := TABELA.RecordCount; ProgressBar1.Position := 0; ProgressBar1.Step := 1; While not TABELA.EOF do begin S := TABELA.FieldByName(´Campo1´).asString; //Remove espaços While pos(´ ´, S) > 0 do Delete(S, Pos(´ ´,S), 1); //Remove ponto de milhar While pos(´.´, S) > 0 do Delete(S, Pos(´.´,S), 1); //Substitui virgula por ponto decimal While pos(´,´, S) > 0 do S[Pos(´,´,S)] := ´.´; //Testa se S é ponto flutuante try StrToFloat( S ); Except On EConvertError do begin ShowMessage(´Erro convertendo "´ + S + ´"´ ); exit; end; end; //Acumula Valor VALOR := VALOR + StrToFloat( S ); //Progresso (pra distrair o usuário, rs) ProgreessBar1.Stepit; //Avança Tabela TABELA.Next; end;
Você pode usar NCampos, NValores e diversos critérios para conversão de dados.
28/11/2005
Vagner.oliveira
Agora funcionou legal, valewwwwssssss :P
Clique aqui para fazer login e interagir na Comunidade :)