Amigos, aquí hay una más... Function FRound( x, y )Local nDeci := 2 // error en el compiladorDefault y := 2nDeci := Set(3, y )If x >= 0 x := Val( Str( Int( x * 10 ** y + 0.5000001 ) ) ) / 10 ** yElse x := Val( Str( Int&...
Gracias Armando, cree esta funcion FUNCTION Redondear(numero) *--------------------------- Local val_num := Val(SubStr(Str(numero,9),-1)) Local Valor := 0 If val_num>=1 .AND. val_num<=5 valor = numero - val_num ElseIf val_num>= 6 .AND. ...
Apóyate en el operador %, te devuelve el sobrante o remanente. ejemplo, puedes usar
785 % 10 => 5 el sobrante es menor o igual a 5 le restas este sobrante a 785 - 5 = 780 786 % 10 => 6 el sobrante es mayor a 5 aumentas el resultado de 10 - 6 = 4 y te quedará 790
Hola colegas, necesito redondear numero ejemplo del 1 al 5 ejemplo $ 785 que quede en $780 del 6 al 9 ejemplo $ 786 que quede en $ 790 y si es 0 ejemplo $ 780 que quede en $ 780 Saludos
Buenas tardes foro.!! Necesito imprimir un titulo de un listado dentro de un box. la pregunta es si se puede a ese box ponerle un fondo de color y si se pueden redondear los bordes. oPrn:Box( prow, pcol, prow*2.3, pcol*77, open1 ) asi defino el box.