topic Re: Get number multiples in Application Development and Automation Discussions

Get number multiples

Former Member — Mon, 24 May 2010 22:53:01 GMT

Hi Gurus,

Is there a way to get the multiples for a number? Any FM?

For example:

For number 12, multiples would be: 12, 24, 36, 48, 60, etc.

I have been looking what found nothing.

Hope you can help me.

J. Garibaldi

Re: Get number multiples

Former Member — Mon, 24 May 2010 23:19:13 GMT

Hi,

It´s impossible. The multiples of a number are infinite.

(may you are talking about the divisors of a number?)

Best regards,

Leandro Mengue

Re: Get number multiples

Former Member — Tue, 25 May 2010 09:41:49 GMT

Hi!

try something like this



DATA: aux TYPE i,
           num type i.

aux = 2.
num = 0.
DO 10 TIMES.
num = num + aux.
ENDDO.

Re: Get number multiples

Former Member — Wed, 26 May 2010 23:34:39 GMT

Thanks for your replys, but I get a way to confirm if a number is multiple of other one.

First divide this two number (number i want to know if is mutiple / base number). Then check if the result is an integer..if it is, then I can say, the number is multiple of base number 😃

Weird...but my way. 😃

Re: Get number multiples

CorradoScarf1 — Wed, 05 Oct 2022 16:36:04 GMT

Hi,
You can try something like this:

CONSTANTS: lv_base TYPE i VALUE 12.

DATA: lv_number(10) TYPE p DECIMALS 2.
DATA: lv_integer(10) TYPE c,
lv_decimal(2) TYPE c.
DATA: lv_split(16) TYPE c.
CLEAR p_check.
IF p_index NE 0.
lv_number = p_index / lv_base.
MOVE lv_number TO lv_split.
CONDENSE lv_split NO-GAPS.
SPLIT lv_split AT '.' INTO lv_integer lv_decimal.
IF lv_decimal NE '00'.
p_check = abap_true.
ENDIF.
ENDIF.