A duas a lógica esta correta, acho que essa das opnioes do rubem é a melhor escrita, mas só está com um erro no valor da redução de 14,5% e na adicao de 30% (dependendo doque o outro amigo quis dizer)
Result := ValorBruto * IfThen(ComNota, 0.145, 1) * 0.30 ficando: Result := ValorBruto * IfThen(ComNota, 0.855, 1) * 1.3 nao entendi corretamente o que nosso amigo quis dizer com multiplico por 30%: caso queira acrescentar 30% sobre o valor retirado os 14,5% usá-se 1.3, caso seja pegar 30% do valor retirado os 14,5% usa-se 0.3 e caso seja decrementar mais 30% do valor ja retirado os 14,5% usa-se 0.7 agora é só saber qual usar! Em 18 de maio de 2010 17:18, Rubem Rocha <rubem.ro...@dtmanaus.com.br>escreveu: > > > 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 <delphi-br%40yahoogrupos.com.br> [mailto: > delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.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 <delphi-br%40yahoogrupos.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 <delphi-br%40yahoogrupos.com.br> <mailto: > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > [mailto:delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br><mailto: > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.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 <delphi-br%40yahoogrupos.com.br><mailto: > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.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 <delphi-br%40yahoogrupos.com.br> <mailto: > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > [mailto:delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br><mailto: > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.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 <delphi-br%40yahoogrupos.com.br><mailto: > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.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 <wchagasj%40bol.com.br> > <mailto:wchagasj%40bol.com.br<wchagasj%2540bol.com.br> > > > <mailto:wchagasj%40bol.com.br <wchagasj%2540bol.com.br>> > <mailto:wchagasj%40bol.com.br <wchagasj%2540bol.com.br>> > http://delphitocorporerm.blogspot.com/ > http://twitter.com/wchagas > MSN: whitesock...@hotmail.com <whitesockets%40hotmail.com> <mailto: > whitesockets%40hotmail.com <whitesockets%2540hotmail.com>> > <mailto:whitesockets%40hotmail.com <whitesockets%2540hotmail.com>> > <mailto:whitesockets%40hotmail.com <whitesockets%2540hotmail.com>> > SKYPE: WalterChagasJr > > ----- Original Message ----- > From: geovan127 > To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> <mailto: > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.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] > > > -- Leandro, MuTukA [As partes desta mensagem que não continham texto foram removidas] ------------------------------------ -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html