PC Toledo

Alo pessoal!

Tudo bem!

Más uma vez estou a precisar de ajuda, acredito q não seja muito dificil de fazer é o seguinte:

Tenho um cliente lojista, ele gera o preço de venda dele, multiplicando o custo por um fator e no resultado, elimina os centavos e troca a unidade de real por um 9, ou seja:

Custo:= 1125,30
Fator:= 2.20
Venda:= 2.475,66

Ok.

Só q o cliente quer q o resultado seja : 2.479,00 ou seja eliminar os centavos e trocar o 5 por um 9. Ou seja dar sempre 9 na unidade de real.


Como seria esta rotina?

Abraços e obrigado.

Tenta aí... Eu fiz rapidinho e não testei... mais acho que dá certo....
Agora... só por curiosidade... esse cliente é Judeu ou Turco ?? (hehe)

Não é muito dificel de fazer isso, mas não entendi o nexo disso... Dessa forma ele vai vender o produto por um preço que lhe dará uma margem muito maior do que ele gostaria de praticar.. Essa regra eu nunca tinha visto ainda !! ehehehe

Supondo que vc use 2 casas decimais em seus cálculos, faça assim:

Val(Stuff(Str(Venda,Lennum(Venda),2), Lennum(Venda)-3 ,4,'9.00'))

Dércio_Luiz_Zanatta escreveu:Não é muito dificel de fazer isso...

Mas você não fez...

Se o cliente quer assim... problema é dele...

Obrigado galera!

Vou testar as sugestões.

Obrigado

a1 := int(valor)
while right(strzero(a1, 10), 1) # '9'
a1++
end

Boa sorte.

hiiii meu Deus... Já não ta mais aqui quem falou.. Peço desculpas.. Só queria expor minha opinião, mas parece que tem gente que não é capaz de assimilar isso.. :{

Dércio_Luiz_Zanatta escreveu:...mas parece que tem gente que não é capaz de assimilar isso..

Mais um exemplo:

nVenda=2475.66
nValor=(int(nVenda/10)*10)+9

Abraços,