Pues creo que así no te va a servir. Mira lo que dice aquí:
%REM devuelve el resto de la división entre los operandos n y m. Los dos
operandos deben ser valores numéricos con cero posiciones decimales. Si
alguno de los operandos es un valor numérico empaquetado, con zona o
binario, el resultado es un valor numérico empaquetado. Si alguno de los
operandos es un valor numérico entero, el resultado es un entero. De lo
contrario, el resultado es un valor numérico sin signo. No se permiten
operandos numéricos de coma flotante. El resultado tiene el mismo signo
que el dividendo. (Véase también %DIV (Devolver la porción entera del
cociente)).
%REM y %DIV presentan la siguiente relación entre sí:
%REM(A:B) = A - (%DIV(A:B) * B)
Si los operandos son constantes que pueden caber en campos enteros o sin
signo de 8 bytes, la función incorporada aplica la acomodación de
constantes en tiempo de compilación. En este caso, es posible codificar la
función incorporada %REM en las especificaciones de definiciones.
Figura 173. Ejemplo de %DIV y %REM
*..1....+....2....+....3....+....4....+....5....+....6....+....7...+....
D*Name++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++
D A S 10I 0 INZ(123)
D B S 10I 0 INZ(27)
D DIV S 10I 0
D REM S 10I 0
D E S 10I 0
/FREE
DIV = %DIV(A:B); // DIV es ahora 4
REM = %REM(A:B); // REM es ahora 15
E = DIV*B + REM; // E es ahora 123
/END-FREE
Albert López <[EMAIL PROTECTED]>
Enviado por: [EMAIL PROTECTED]
17/01/2007 18:35
Por favor, responda a
"forum.help400" <[email protected]>
Para
"forum.help400" <[email protected]>
cc
Asunto
Re: resto de una division
Buenas,...
ahí està el tema.
Segun tu ejemplo Ax y Bx son variables sin decimales, y mi pregunta se
referia a que necesito que Ax y Bx tengan decimales...
ejemplo
Ax = 3,5
Bx = 3,5
%Rem(Ax:Bx), para que me dé 0.
Albert López
IT Department. Helpdesk Consultant
š [EMAIL PROTECTED]
É +34 93 724 39 00
Ê +34 93 723 86 65
Aquapoint S.A.
C/ Filadors, 35 4a planta
08208 Sabadell BCN (Spain)
[EMAIL PROTECTED]
Enviado por: [EMAIL PROTECTED]
17/01/2007 18:29
Por favor, responda a
"forum.help400" <[email protected]>
Para
"forum.help400" <[email protected]>
cc
Asunto
Re: resto de una division
Por ejemplo hacer un
Eval(h)Ax=A
Eval(h)Bx=B
Eval Resto = %Rem(Ax:Bx)
Siendo Ax y Bx dos variables sin decimales. Supongo que ya se te habia
ocurrido.
Hombre, esta funcion va bien si por ejemplo tienes que hacer un:
If %Rem(Ax:Bx) <>0;
exsr subrutina;
Endif;
Albert López <[EMAIL PROTECTED]>
Enviado por: [EMAIL PROTECTED]
17/01/2007 18:01
Por favor, responda a
"forum.help400" <[email protected]>
Para
[email protected]
cc
Asunto
resto de una division
Hola a todos,
una pregunta para los ILEros,...
quiero hacer un Eval Resto = %Rem(A:B),
el problema es que tanto la variable A como B pueden tener decimales y al
compilar da error.
Que solución hay sin tener que recurrir a la antigua usanza del DIV y el
MVR ?
Gracias de antemano.
Albert López
IT Department. Helpdesk Consultant
š [EMAIL PROTECTED]
É +34 93 724 39 00
Ê +34 93 723 86 65
Aquapoint S.A.
C/ Filadors, 35 4a planta
08208 Sabadell BCN (Spain)
This e-mail may contain confidential or priviliged information. If you are
not the intended recipient please advise by return email and delete
immediately without regarding or fowarding to others.
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
This e-mail may contain confidential or priviliged information. If you are
not the intended recipient please advise by return email and delete
immediately without regarding or fowarding to others.
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
