FoxPro/Visual FoxPro - Redondeo, pero de a 5.... Como se hace...

   
Vista:

Redondeo, pero de a 5.... Como se hace...

Publicado por Andrea (325 intervenciones) el 19/07/2008 21:01:38
Hola a todos
Necesito redondear un valor numerico pero de a 5 superior

Ejemplo:

De 4,107 a 4,110
De 3,152 a 3,155

Como se hace esto

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Redondeo, pero de a 5.... Como se hace...

Publicado por kong (681 intervenciones) el 19/07/2008 23:39:42
tengo una idea.
.convertir el numero en caracter
.tomar el ultimo digito
.determinar posicion del punto decimal
.hacer un do case

do case
...case between(digito,1,5)
......variable=5-digito
......opcion="cinco"
...case between(variable,6,9)
......variable=10-digito
......opcion="diez"
endcase

.convertir variable en un numero con la posicion de decimal que corresponde
.volver a convertir el numero a numero (valga la redundancia)
.sumar el numero a la variable(hecho numero)
................................

got it?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Mauricio

Redondeo, pero de a 5.... Como se hace...

Publicado por Mauricio (1367 intervenciones) el 20/07/2008 01:24:36
puedes probar esto:
SET DECIMALS TO 4
SET FIXED ON
CLEAR
*De 4,107 a 4,110
*De 3,152 a 3,155
? ROUND(4.107, 2)
? ROUND(3.1545, 3)
SET FIXED OFF
SET DECIMALS TO 2
* En el segundo ejemplo que pones no se puede aproximar el 2 porque el siguiente es 0
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar