Caramba 84 msgs para uma coisa tão banal... é só pegar o trunc do valor * 100 e dividir novamente por 100.
----- Original Message ----- From: "Marcelo Hoepfner (SI)" <[EMAIL PROTECTED]> To: <delphi-br@yahoogrupos.com.br> Sent: Tuesday, November 21, 2006 10:38 AM Subject: RES: [delphi-br] Arredondar 1,2999 para 1,29 Acho que a lista não é um lugar de brincadeira e sim um local onde procuramos rosolução para nossos problemas, embora as vezes muitas das respostas não sejam das melhores para resolução imediata elas podem ajudar ate que se consiga uma forma melhor. Não sei se vc recebeu um termo do grupo dizendo que o grupo é para troca de conhecimento, simplesmente passei uma função se você não gostou dela simplesmente deleta o email, agora responder o email com uma baboseira dessa. Me desculpe mais tenho mais o que fazer........ _____ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Henrique Netzka (Vetor Sistemas) Enviada em: terça-feira, 21 de novembro de 2006 08:34 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Arredondar 1,2999 para 1,29 Você tá brincando, né?! ----- Original Message ----- From: Marcelo Hoepfner (SI) To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> Sent: Monday, November 20, 2006 9:47 PM Subject: ENC: [delphi-br] Arredondar 1,2999 para 1,29 function TruncaSemArredondar(Valor:string;Quant:integer):String; // Marcelo Hoepfner var I,ponto:integer; aux: string; begin aux := Valor; ponto := pos(',',valor); if ponto = 0 then ponto := pos('.',valor); ponto:= ponto+1; aux:= Copy(aux,0,Length(valor)-ponto); aux:= aux+ Copy(valor,ponto,Quant); result := aux; end; AI ESSA FUNÇÃO RESOLVE TEU PROBLEMA Marcelo Hoepfner [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Links do Yahoo! Grupos -- Internal Virus Database is out-of-date. Checked by AVG Free Edition. Version: 7.5.430 / Virus Database: 268.14.5/533 - Release Date: 13/11/2006 20:56
