Se não dessa forma, então deve ser dessa:
function ValorFinal(ValorBruto: Extended; ComNota: Boolean): Extended; begin Result := ValorBruto - (ValorBruto * IfThen(ComNota, 0.145, 1) * 0.30) end; A explicação da dúvida não ficou muito clara pra mim! Por isso que escrevi essas hipóteses! Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Rocha Enviada em: terça-feira, 18 de maio de 2010 17:14 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] matemática complexa Prioridade: Alta Ops! Escrevi na carreira e só agora detectei um bug! Aí vai a receita de bolo corrigida! function ValorFinal(ValorBruto: Extended; ComNota: Boolean): Extended; begin Result := ValorBruto * IfThen(ComNota, 0.145, 1) * 0.30 end; Necessita da unit Math declara no uses. Sds. De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> [mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> ] Em nome de Rubem Rocha Enviada em: terça-feira, 18 de maio de 2010 17:03 Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> Assunto: RES: [delphi-br] matemática complexa Prioridade: Alta { ODEIO FAZER RECEITA DE BOLO!!!!! GRRRRR!!!!! } function ValorFinal(ValorBruto: Extended; ComNota: Boolean): Extended; begin Result := ValorBruto * (0.145 * Ord(ComNota)) * 1.30; end; Sds. De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.com.br> [mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.com.br> ] Em nome de Walter Chagas (Bol) Enviada em: terça-feira, 18 de maio de 2010 16:57 Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.com.br> Assunto: Re: [delphi-br] matemática complexa Cade o Rubem Rocha????????? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br <mailto:wchagasj%40bol.com.br> <mailto:wchagasj%40bol.com.br> <mailto:wchagasj%40bol.com.br> http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com <mailto:whitesockets%40hotmail.com> <mailto:whitesockets%40hotmail.com> <mailto:whitesockets%40hotmail.com> SKYPE: WalterChagasJr ----- Original Message ----- From: geovan127 To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.com.br> Sent: Tuesday, May 18, 2010 4:44 PM Subject: [delphi-br] matemática complexa Olá pessoal sou novo no delphi gostaria de tirar uma dúvida com vcs , preciso criar um código que faça a seguinte operação: recebo um valor bruto:17.000 diminuo 14,5% desse valor (com nota fiscal) e depois multiplico por 30% = valor final caso se for sem nota recebo o valor bruto e já *(multiplico) direto por 30%, obtivendo o valor final, somente isso. Uso o Delphi 7.0 Agradeço imensamente, o interesse e a ajuda de todos obrigado. Geovan Martins Administrador de Redes Linux LPIC [As partes desta mensagem que não continham texto foram removidas]
