Как проверить число на целое не целое?

nicky555

Code:

DATA: result TYPE f.

result = value - TRUNC( value ).
IF result IS INITIAL.
* целое
ENDIF.

T

ArmAnn написал:

Arman написал(а):

еще вариант:
if( X DIV 1 <> X).
.....
Endif.

В версии 4 не сработает точно - нельзя использовать выражения в условии. Вариант T также не пройдет

А в более старших версиях сработает?

Приведённый мной вариант работает начиная с версии 4.7.
Вариант от ArmAnn - возможно начнёт работать в версиях базиса > 7. По крайней мере так обещают:

(c) SAP AG 2006 TechEd'06-CD200-An Overview of the
New Features in ABAP написал(а):

ABAP Language Preview –Enhanced Expression Enabling
As of next Release:
��You can use computational expressions, functional methods and built-in functions in expression positions:
–Logical expressions:a + b < oref->meth( )
–Method call parameters:oref1->meth1( oref2->meth2( ... ) )
��You can use numerical expressions in numerical positions:
–Examples:DO abs( n ) + 1 TIMES.
READ TABLE itab INDEX lines( itab) –1 ...
��You can use functional methods in functional positions:
–Examples:FIND|REPLACE REGEX oref->get_regex( ... ) IN ...
READ TABLE itabFROM oref->get_wa( ... ) ...

Соответственно вариант от Nicky555 в 4.7 уже можно записать чуть короче:

Code:

IF TRUNC( value ) = value.
* целое
ENDIF.

ArmAnn

T написал:

Вариант от ArmAnn - возможно начнёт работать в версиях базиса > 7. По крайней мере так обещают:...

это не я предложил

T

Виноват, созвучные ники.. :oops:

Arman

Господа, так есть функция, которое дает полный остаток от деления (не целое число - MOD)?...
могу еще извратный способ предложить
..))

Arman

ArmAnn написал:

Arman написал(а):

еще вариант:
if( X DIV 1 <> X).
.....
Endif.

В версии 4 не сработает точно - нельзя использовать выражения в условии. Вариант T также не пройдет

А в более старших версиях сработает?

ну тады Data: X1 type I,
X type F.
X1 = X Div 1.
If ( X <> X1).
...
Endif.

я просто идею хотел донести....

ArmAnn

А еще можно написать программу для определения целого/не целого на Си, зарегистрировать в качестве внешней команды в sm69, ее вызывать, она будет результат выводить в stdout, который мы будем читать посредством open dataset'а

нет предела совершенству

Snegurenok

lumer написал:

Даешь самый извратный метод вычисления целостности!!!

PARAMETERS v_p TYPE p DECIMALS 4.

DATA: v_c0(100)
, v_c1(100)
, is_celoe(1)
.

CLEAR is_celoe.
v_c0 = v_p.

SPLIT v_c0 AT '.' INTO v_c0 v_c1.

IF v_c1 CO '0 '.
is_celoe = 'X'.
ENDIF.

T

Ну тогда вот ещё два почти изврата:

Code:

CASE trunc( value ).
  WHEN value.
*   Целое
  WHEN OTHERS.
*   Не целое
ENDCASE.

CASE frac( value ).
  WHEN 0.
*   Целое
  WHEN OTHERS.
*   Не целое
ENDCASE.

И два именно изврата:

Code:

CASE value.
  WHEN trunc( value ).
*   Целое
  WHEN OTHERS.
*   Не целое
ENDCASE.

CASE 0.
  WHEN frac( value ).
*   Целое
  WHEN OTHERS.
*   Не целое
ENDCASE.

sibrin

Code:

data: p(12) type p decimals 5,
c(32).

 c = p.
 shift c right deleting trailing space.
 shift c right deleting trailing '0'.
 if c+31 = '.'.

trop

Code:

data i type i.
i = number.

if i <> number.
 write: / 'drobnoe'.
endif.

lumer

Code:

   start_date = sy-datum.
   CLEAR celoe.   

   do.
      CALL FUNCTION 'GET_RANDOM'
         EXPORT
            max = MAX_INT. 
         IMPORT
            result = result. 

      IF result = test_number.
         celoe = 'X'.
      ENDIF.
 
      IF ( celoe = 'X' ) OR ( sy-datum NE start_date ).
         EXIT.
      ENDIF.
   enddo.

zSEA

to lumer: супер ))

DKiyanov

Цитата:

IF ....OR ( sy-datum NE start_date ).
EXIT.
ENDIF.

НЕ поможет выйти из цикла. надо ещё делать GET TIME.

Вольдемар

Code:

clear celoe.
int = MIN_INT.
do.
  if int = number.
    celoe = 'X'.
    exit.
  endif.
  check int <> MAX_INT.
  int = int + 1.
enddo.

как вариант:

Code:

clear celoe.
int = MIN_INT.
do.
  append int to tab_ints.
  check int <> MAX_INT.
  int = int + 1.
enddo.
loop at tab_ints where int = number.

  

[/code]

Правила форума

Как проверить число на целое не целое?

Кто сейчас на конференции