 |
ActiveDelphi .: O site do programador Delphi! :.
|
Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
gbt Profissional

Registrado: Quarta-Feira, 17 de Janeiro de 2007 Mensagens: 672
|
Enviada: Ter Nov 20, 2007 11:15 pm Assunto: somando resultado de 2 labels |
|
|
ola caros colegas! estou usando esse comando abaixo, ta tudo certo, só que preciso pegar o resultado da primeira label e subtrair pelo resultado da segunda , alguem pode me dizer como faço isso por gentileza?
mvlc:=cdsconsultar.FieldByName('CR_SALDOATUAL').AsFloat;
label13.Caption:=formatfloat('###,##0.00',mvlc);
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('Select Sum( LAN_CREDITO )-Sum(LAN_DEBITO) AS TOTAL FROM LANCBAN');
Query2.SQL.Add('Where LAN_SITUACAO='+quotedstr('C'));
Query2.Open;
msal:=query2.fieldByName('TOTAL').AsFloat;
Label11.Caption := formatfloat('###,##0.00',msal); |
|
Voltar ao Topo |
|
 |
forst Membro Junior


Registrado: Domingo, 26 de Junho de 2005 Mensagens: 367
|
Enviada: Qua Nov 21, 2007 11:59 am Assunto: |
|
|
Ae gbt,
Não sei se intendi oq vc quer..
mas se é o que eu intendi, eh simples...
tipo..
Código: |
procedure TForm1.Button1Click(Sender: TObject);
var Total : double;
begin
label13.Caption:=formatfloat('###,##0.00',mvlc);
Label11.Caption := formatfloat('###,##0.00',msal);
Total := StrtoFloat(label13.caption)-StrtoFloat(label11.caption);
Showmessage(formatfloat('###,##0.00',Total));
end;
|
sem contar que poderia ter feito direto pelas variaveis O.o
entendeu?
Flw,
[]s _________________ Precisando de ícones para suas aplicações em Delphi?
www.soicones.com
Milhares de Ícones PNG de alta qualidade disponíveis em diversos tamanhos. |
|
Voltar ao Topo |
|
 |
AlexSousa Colaborador


Registrado: Sexta-Feira, 12 de Novembro de 2004 Mensagens: 1879 Localização: São luís - MA
|
Enviada: Qua Nov 21, 2007 12:50 pm Assunto: |
|
|
blz gbt,
uma opnião, acho melhor trabalhar com variavéis...blz
abraços, _________________ "Guarda com toda a diligência o teu coração, porque dele procedem as fontes da vida....Prov. 4:23" |
|
Voltar ao Topo |
|
 |
gbt Profissional

Registrado: Quarta-Feira, 17 de Janeiro de 2007 Mensagens: 672
|
Enviada: Qui Nov 22, 2007 2:47 am Assunto: |
|
|
valeu mesmo, deu certo!!!! |
|
Voltar ao Topo |
|
 |
|
|
Enviar Mensagens Novas: Proibido. Responder Tópicos Proibido Editar Mensagens: Proibido. Excluir Mensagens: Proibido. Votar em Enquetes: Proibido.
|
|