Re: [delphi-br] Arredondar
Joao, Vc pode multiplicar por 100 o salario para eliminar os centavos, acrescentar 8% e dividir por 100 usando MOD e nao a / (barra de divisao), assim vc tem somente a parte inteira. Obrigado. MuriloCunha On 13/07/2010 09:40, joao_jma wrote: Preciso atualizar o salário na base de dados de funcionários, aumentando em 8% Preciso arredondar os valores sempre acima para não gravar centavos. Alguma dica ??? Obrigado [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Arredondar
Declare Math no Uses Var NovoSalario,AntigoSalario,Aumento:Double; Begin AntigoSalario:= 1333; Aumento:= 8; NovoSalario:= Roundto(AntigoSalario + (AntigoSalario * (Aumento / 100)), 0); William C. Brazilino [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Arredondar
Preciso atualizar o salário na base de dados de funcionários, aumentando em 8% Preciso arredondar os valores sempre acima para não gravar centavos. Alguma dica ??? Obrigado [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Arredondar
Use a função simpleroudto da unit math From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On Behalf Of joao_jma Sent: terça-feira, 13 de julho de 2010 09:40 To: Undisclosed-Recipient:; Subject: [delphi-br] Arredondar Preciso atualizar o salário na base de dados de funcionários, aumentando em 8% Preciso arredondar os valores sempre acima para não gravar centavos. Alguma dica ??? Obrigado [As partes desta mensagem que não continham texto foram removidas] Click here https://www.mailcontroller.altohiway.com/sr/Npc!Klh5vJ7TndxI!oX7UrSi!x6S!wnTPgXyHt6BO!WvnJiZb5KIfBJupdVbJNrQag+xV6SoGFCSBz4+TNYwIA== to report this email as spam. This message has been scanned for viruses by MailController http://www.MailController.altohiway.com/ . [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Arredondar
Cara .. Eu precisei fazer isto aqui e olhando o help do delphi consegui da seguinte forma Utilizei a função RondTo Porem antes de utilizar eu mudei seu tipo SetRoundMode(rmTruncate); Desta forma a função RoundTo começa a ser do tipo Truncate e trucar os seus valores. Abraços, http://www.gecon.inf.br/ Gecon Cons. e Desen. de Sistemas Ltda. Filippe Maymone fili...@gecon.inf.br fone: 11-22423065 / 11-41192856 Cel: 11-81663158 De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de joao_jma Enviada em: terça-feira, 13 de julho de 2010 09:40 Para: Undisclosed-Recipient:; Assunto: [delphi-br] Arredondar Preciso atualizar o salário na base de dados de funcionários, aumentando em 8% Preciso arredondar os valores sempre acima para não gravar centavos. Alguma dica ??? Obrigado [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Arredondar 1,2999 para 1,29
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
Re: [delphi-br] Arredondar valores
Levando em cocideração as regras matemáticas o correto é trabalhar com o máximo de casas decimais durante os cálculos, e apenas arredondar o resultado final. Pelo menos foi assim que aprendi no ginásio, pois do contrário o resultado pode ter um uma diferença muito grande. Em 16/07/06, Welson Avelar [EMAIL PROTECTED] escreveu: --- Alex - Yahoo escreveu: Olá pessoal, estou com o seguinte problema: Quando faço : BD.ItemValor.AsCurrency := BD.ItemPrecoUnitario.AsCurrency * BD.ItemQuantidade.AsCurrency ele faz algo esquisito. O Valor de BD.ItemPrecoUnitario é 2,318 e o valor de BD.Itemquantidade é 100. Só que ele mostra 231,8 quando multiplico. O certo não seria 232,00?Pois deveria arredondar 2,318 para 2,32 e depois multiplicar por 100 certo? Alex [--x--] [Welson] Claro que não. Se você precisa de valor arredondado, então pegue 2,318 e arredonde e depois faça o cálculo. []s. = O que me preocupa não é o grito dos maus. É o silêncio dos bons. Martin Luther King. = Welson de Avelar Soares Filho Analista/Programador Delphi Gemini Sistemas www.geminisistemas.com.br Juiz de Fora - Minas Gerais = ___ Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. http://mail.yahoo.com.br/ [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: [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Arredondar valores
--- Alex - Yahoo escreveu: Olá pessoal, estou com o seguinte problema: Quando faço : BD.ItemValor.AsCurrency := BD.ItemPrecoUnitario.AsCurrency * BD.ItemQuantidade.AsCurrency ele faz algo esquisito. O Valor de BD.ItemPrecoUnitario é 2,318 e o valor de BD.Itemquantidade é 100. Só que ele mostra 231,8 quando multiplico. O certo não seria 232,00?Pois deveria arredondar 2,318 para 2,32 e depois multiplicar por 100 certo? Alex [--x--] [Welson] Claro que não. Se você precisa de valor arredondado, então pegue 2,318 e arredonde e depois faça o cálculo. []s. = O que me preocupa não é o grito dos maus. É o silêncio dos bons. Martin Luther King. = Welson de Avelar Soares Filho Analista/Programador Delphi Gemini Sistemas www.geminisistemas.com.br Juiz de Fora - Minas Gerais = ___ Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. http://mail.yahoo.com.br/ -- 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: [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Arredondar valores
Olá pessoal, estou com o seguinte problema: Quando faço : BD.ItemValor.AsCurrency := BD.ItemPrecoUnitario.AsCurrency * BD.ItemQuantidade.AsCurrency ele faz algo esquisito. O Valor de BD.ItemPrecoUnitario é 2,318 e o valor de BD.Itemquantidade é 100. Só que ele mostra 231,8 quando multiplico. O certo não seria 232,00?Pois deveria arredondar 2,318 para 2,32 e depois multiplicar por 100 certo? Alex [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: [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Arredondar valor
Como faço para arredondar os centavos de um valor? exemploo: 87,18 87,19 87,19 -- Grato pelo atenção Luís ___ Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! http://br.answers.yahoo.com/ -- 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: [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Arredondar valor
Use a função RoundTo() - Original Message - From: Luis To: Delphi-Br Sent: Thursday, June 29, 2006 3:03 PM Subject: [delphi-br] Arredondar valor Como faço para arredondar os centavos de um valor? exemploo: 87,18 87,19 87,19 -- Grato pelo atenção Luís ___ Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! http://br.answers.yahoo.com/ [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: [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
