lkm Postado Maio 29, 2004 Denunciar Share Postado Maio 29, 2004 não consigo somar DBEdit's que estao em formato de moeda, se alguém puder me ajudar, agradeço. VAleu Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Guest Postado Maio 30, 2004 Denunciar Share Postado Maio 30, 2004 Edit ou DBEdit? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 lkm Postado Junho 1, 2004 Autor Denunciar Share Postado Junho 1, 2004 DBEdit Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Corposemalma Postado Junho 1, 2004 Denunciar Share Postado Junho 1, 2004 algum erro?voce esta fazendo a soma como?variavel := dbedit1.text + dbedit2.text ? Já que são DbEdits, voce pode somar os campos da tabela variavel := tabela.fieldbyname('campo1') + tabela.fieldbyname('campo2') Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 lkm Postado Junho 1, 2004 Autor Denunciar Share Postado Junho 1, 2004 ainda não conseguiprocedure Tfm_notas_st.Button1Click(Sender: TObject);begindbedit40.Text := tab_nota.fieldbyname('DBEdit30.text') + tab_nota.fieldbyname('DBEdit31.text');end; Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 ricardo_sdl Postado Junho 1, 2004 Denunciar Share Postado Junho 1, 2004 Não seria assim:procedure Tfm_notas_st.Button1Click(Sender: TObject);begin dbedit40.Text :=floattostr(tab_nota.fieldbyname('DBEdit30.text').asfloat + tab_nota.fieldbyname('DBEdit31.text').asfloat);end;Acho q Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Corposemalma Postado Junho 1, 2004 Denunciar Share Postado Junho 1, 2004 O certo seria:procedure Tfm_notas_st.Button1Click(Sender: TObject); begin dbedit40.Text :=floattostr(tab_nota.fieldbyname('NomedoCamponaTabela').asfloat + tab_nota.fieldbyname('NomedoCamponaTabela2').asfloat); end;Onde NomedoCamponaTabela é o nome que voce deu para o campo ou seria o mesmo que esta no DataField do respectivo DbEdit.... No lugar de dbedit40.Text voce tambem pode substuir pela da tabela tabela.fieldbyname('Campo').value :=Que tipo de campo é o do DbEdit40? Tambem é float?A vantagem de usar diretamente os campos da tabela, ao invés de modificar o valor no DbEdit é exatamente evitar conversoes desnecessarias e erros por causa delas Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 lkm Postado Junho 2, 2004 Autor Denunciar Share Postado Junho 2, 2004 OK funcionou e muito obrigado pela ajuda. Qualquer coisa eu posto de novo Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 lkm Postado Junho 3, 2004 Autor Denunciar Share Postado Junho 3, 2004 Preciso agora multiplicar um inteiro por um valor em moeda (R$0,00). Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Corposemalma Postado Junho 3, 2004 Denunciar Share Postado Junho 3, 2004 Só chutando (to sem o delphi ainda)Use IntToFloat e transforme o inteiro em float, depois multiplique Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 GameOver Postado Agosto 1, 2006 Denunciar Share Postado Agosto 1, 2006 Olá Pessoal to usando isso:procedure TForm2.Button1Click(Sender: TObject);begin EditValor_total.text :=floattostr(Table1.fieldbyname('Valor_Unit').asfloat * Table1.fieldbyname('Quantidade').asfloat);end;Mas o " EditValor_total" é um campo $ mas quando faz a operação aparace no neste campo só os numeros sem o R$........00dá pra resolver??Valeu Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
lkm
não consigo somar DBEdit's que estao em formato de moeda, se alguém puder me ajudar, agradeço. VAleu
Link para o comentário
Compartilhar em outros sites
10 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.