ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

somando resultado de 2 labels

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
gbt
Profissional
Profissional


Registrado: Quarta-Feira, 17 de Janeiro de 2007
Mensagens: 672

MensagemEnviada: Ter Nov 20, 2007 11:15 pm    Assunto: somando resultado de 2 labels Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular
forst
Membro Junior
Membro Junior


Registrado: Domingo, 26 de Junho de 2005
Mensagens: 367

MensagemEnviada: Qua Nov 21, 2007 11:59 am    Assunto: Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
AlexSousa
Colaborador
Colaborador


Registrado: Sexta-Feira, 12 de Novembro de 2004
Mensagens: 1879
Localização: São luís - MA

MensagemEnviada: Qua Nov 21, 2007 12:50 pm    Assunto: Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
gbt
Profissional
Profissional


Registrado: Quarta-Feira, 17 de Janeiro de 2007
Mensagens: 672

MensagemEnviada: Qui Nov 22, 2007 2:47 am    Assunto: Responder com Citação

valeu mesmo, deu certo!!!!
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB