Resultado de um calculo, trocar a casa de reais por um 9

[Ricardo Sales Ribeiro]

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.

[Augusto]

Tenta aí...

Código: Selecionar todos

venda_i = int(venda)
venda_s = strzero(venda_i,10,0)
venda_r = val(substr(venda_s,10,1))
venda = venda_i - venda_r + 9

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

[Dércio_Luiz_Zanatta]

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

[Grings]

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'))

[Augusto]

Não é muito dificel de fazer isso...

Mas você não fez...

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

[Ricardo Sales Ribeiro]

Obrigado galera!

Vou testar as sugestões.

Obrigado

[gvc]

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

Boa sorte.

[Dércio_Luiz_Zanatta]

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.. :{

[Augusto]

...mas parece que tem gente que não é capaz de assimilar isso..

[Toledo]

Mais um exemplo:

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

Abraços,