Search found 29 matches: redondear

Return to advanced search

Re: Redondear un Numero

Muchas Gracias
Saludos
by jbrita
Fri Feb 09, 2024 2:19 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Redondear un Numero
Replies: 7
Views: 302

Re: Redondear un Numero

José:

Pasando un parámetro más a la función, en lugar de la constante 10, y con pequeños ajustes
podrás redondear a Unidades, Decenas, Centenas, etc etc.

Saludos
by Armando
Thu Feb 08, 2024 11:57 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Redondear un Numero
Replies: 7
Views: 302

Re: Redondear un Numero

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&...
by Willi Quintana
Thu Feb 08, 2024 3:04 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Redondear un Numero
Replies: 7
Views: 302

Re: Redondear un Numero

Gracias armando, quedo muy bien..
FUNCTION Redondear(nValor)
IF nValor % 10 <= 5
nValor := nValor - (nValor % 10)
ELSE
nValor := nValor + (10 - nValor % 10)
ENDIF
RETURN(Round(nValor,0))

saludos
by jbrita
Thu Feb 08, 2024 2:42 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Redondear un Numero
Replies: 7
Views: 302

Re: Redondear un Numero

José:

Creo que esto puede funcionar

FUNCTION Redondear(nValor)
IF nValor % 10 <= 5
nValor := nValor - (nValor % 10)
ELSE
nValor := nValor + (10 - nValor % 10)
ENDIF
RETURN(nValor)

Pruébalo, los hice de salida y asumo que en valor no hay fracciones decimales

Saludos
by Armando
Thu Feb 08, 2024 2:33 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Redondear un Numero
Replies: 7
Views: 302

Re: Redondear un Numero

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. ...
by jbrita
Thu Feb 08, 2024 2:06 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Redondear un Numero
Replies: 7
Views: 302

Re: Redondear un Numero

José:

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

Saludos
by Armando
Thu Feb 08, 2024 2:37 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Redondear un Numero
Replies: 7
Views: 302

Redondear un Numero

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
by jbrita
Thu Feb 08, 2024 1:22 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Redondear un Numero
Replies: 7
Views: 302

Usar ButtonBmp

Buenos días.
Estoy iniciando buttonbmp y no encuentro como redondear las esquinas, alguna idea por favor


Saludos
by EASYSOFT
Mon Aug 07, 2023 2:40 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Usar ButtonBmp
Replies: 2
Views: 156

Se Puede Imprimir 1 box de fondo gris y bordes redondeados?

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.

Gracias.
by José Camilo
Tue Jan 17, 2023 7:26 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Se Puede Imprimir 1 box de fondo gris y bordes redondeados?
Replies: 1
Views: 234

Re: Redondear centena

Euclides, muchas gracias por la ayuda, excelente solución también :D
by leandro
Fri May 20, 2022 11:04 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Redondear centena
Replies: 8
Views: 643

Re: Redondear centena

Hola, mas simples...

nAproximar := 50
nRedondear := 47085
? round(nRedondear / nAproximar, 0) * nAproximar

Saludos, Euclides
by Euclides
Thu May 19, 2022 3:42 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Redondear centena
Replies: 8
Views: 643

Re: Redondear centena

Excelente amigo, muchísimas gracias :D
by leandro
Sat May 14, 2022 12:22 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Redondear centena
Replies: 8
Views: 643

Re: Redondear centena

function Main()   local n   n := 4785   ? if( Round( n / 100, 0 ) > Int( n / 100 ), Round( n / 100, 0 ) * 100, Round( n / 100, 0 ) * 100 + 50 )   n := 4727   ? if( Round( n / 100, 0 ) &g...
by cnavarro
Sat May 14, 2022 1:26 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Redondear centena
Replies: 8
Views: 643

Re: Redondear centena

Hola, puedes probar usando el resto de la división.
Code: Select all  Expand view
nAproximar := 50
nRedondear := 4785
nResto := nRedondear % nAproximar
? nRedondear - IF ( nResto < (nAproximar / 2), nResto, - (nResto - nAproximar) )

No lo he probado, pero creo que puede funcionar.
Un saludo.
by gmart1
Mon May 09, 2022 6:39 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Redondear centena
Replies: 8
Views: 643
Next

Return to advanced search