Tratamento De Valores

[tntgui]

Por favor,

Estou precisando de ajuda URGENTE! Estou com problemas em tratar um dado numérico. É o seguinte: tenho valores q recupero do BD que preciso q estejam com o seguinte formato: 0,00 (Ex: 1,79 / altura de uma pessoa). Mas, como é o banco de uma empresa e os usuários q incluem os dados, alguns registros estão com o formato: 000 (Ex: 179). Preciso que esteja no formato anterior, pois preciso calcular o IMC (Indice de Massa Corporal) que se dá por: peso / altura * altura, e se for do formato (179) vou ter problemas com o resultado.

Alguém poderia me ajudar???

Por favor!!!!!!!!!!!!!!!!!

Obrigado!

[cyberalexxx]

é só dividir o valor que vem do BD por 100

[tntgui]

Mas como saberei qual registro está no formato que quero ou não? Teria q fazer algum tipo de teste... como procurar uma virgula, não sei... entendeu?

[cyberalexxx]

Partindo do pressuposto d q ninguém mede mais de 3 metros voce pode testar assim: if rs("altura") > 3 then : altura=Rs("altura")/100 : end if

ou procurar a virgula: if instr(rs("altura"),",") = 0 then : altura=Rs("altura")/100 : end if

[tntgui]

Valeu mesmo!Já tinha feito algo parecido, mas não conseguia me lembrar!

Abraços!

[cyberalexxx]

Valeu mesmo!Já tinha feito algo parecido, mas não conseguia me lembrar!

Abraços!

beleza!!

Se der tudo certo avisa a gente pra fecharmos o tópico.

[]'s

[tntgui]

A princípio deu certo, mas estou encontrando problemas, se o registro tiver um ponto (.)!!! Está fazendo a conta errado... estranho...

Tem alguma idéia do q possa ser?

Outra coisa q percebi agora. A informação de "peso", existem registros que estão no formato: 6800 ao invés de estar 68,00 ou só 68. Isso é um problema... Não posso fazer o mesmo teste, né? Tem alguma idéia? Desculpe, mas sou iniciante em ASP.

[cyberalexxx]

quanto ao ponto, voce pode colocar um replace para trocar o ponto pela virgula:

tipo altura=replace(Rs("altura"),".",",")

quanto ao peso da pra usar a mesma metodologia da altura.

O ideal mesmo é colocar validação na hora do cadastro para não permitir qualquer tipo de informação.

[tntgui]

Ok! Deu certo! Com relação ao peso terei q testar, mas acho q dará certo!

Obrigado!

[tntgui]

testei a mesma coisa com o peso e deu Sobrecarga, pois tentei dividir o "peso/100" pela "altura/100" * "altura/100"

peso/altura^2

Como posso resolver isso???

[cyberalexxx]

voce separou bem a equação com parenteses??

tipo:

(((peso/100)/(altura/100))*(altura/100))

[tntgui]

Sim! Está tudo dentro de variáveis! Pode ser isso? A equação final são três variáveis: IMC = peso / altura

Onde altura = rs("altura")*rs("altura")

e peso = (rs("peso")) / 100

dentro de seus respectivos if

[cyberalexxx]

poste o seu script.

destaque a linha do erro.

e mostre o erro que esta dando.

[tntgui]

While count < RS.PageSize and not RS.EOF

dim IMC

dim altura

dim altDiv

dim peso

if ((rs("peso")) > 160) then

peso = (rs("peso")) / 100

end if

if instr(rs("altura"),".") = 1 then

altura=replace(Rs("altura"),".",",")

end if

if instr(rs("altura"),",") = 0 then

altDiv=Rs("altura")/100

end if

altura = (altDiv) * (altDiv)

IMC = ((peso) / (altura))

E o erro é: Erro de tempo de execução do Microsoft VBScript (0x800A0006)

Sobrecarga

[tntgui]

Desculpe... a linha do erro é a última que está no post acima:

IMC = ((peso) / (altura))

[cyberalexxx]

voce já deu um response.write nas variaveis peso e altura pra ver c os valores estão corretos??

Outra coisa:

troque a linha : if instr(rs("altura"),".") = 1 then

por: if instr(rs("altura"),".") > 0 then

[tntgui]

Dei um response.write nas variáveis, mas não consigo sucesso. Pois continua com o erro de sobrecarga. E, se coloco o response.write seguido do response.end dentro do if do peso, ele não pára, pois o primeiro registro não entra no if. Logo, dá o erro de sobrecarga!

Quando retiro o if do Peso e, na formula final (IMC = peso / altura), coloco rs("peso"), funciona normalmente, mas com o erro antigo de Peso (lógico)!!!