CREATE OR ALTER PROCEDURE F_MODF (
    ANUMERIC TYPE OF TY$NUMBER)
RETURNS (
    AINTEGER TYPE OF TY$NUMBER,
    AFRACTION TYPE OF TY$NUMBER)
AS
/*******************************************************************************
* $Workfile: F_MODF.sp $
* $Revision: 4 $
* $Date: 15.07.13 14:58 $
*
* DBVERSION:
*   DB6.000.041
*
* DESCRIPTION: 
*    Разбиение числа на целую и дробную части.
*    Пример: 'SELECT * FROM f_modf(2.5)' вернет 2.0, 0.5.
*
* INPUT PARAMS:
*    ANUMERIC       Преобразуемое число
*
* OUTPUT PARAMS:
*    AINTEGER       Целая часть
*    AFRACTION      Дробная часть
*******************************************************************************/
  DECLARE IsNegative TYPE OF TY$SMALLINT;
BEGIN
  IF (ANumeric IS NOT NULL) THEN
  BEGIN
    IF (ANumeric < 0) THEN
    BEGIN
      IsNegative = 1;
      ANumeric = - ANumeric;
    END
    ELSE
      IsNegative = 0;

    BEGIN

    AInteger = CAST(ANumeric AS TYPE OF TY$INTEGER);

    WHEN ANY DO AInteger = ANumeric;

    END

    AFraction = ANumeric - AInteger;

    IF (AFraction < 0) THEN
    BEGIN
      AInteger = AInteger - 1;
      AFraction = ANumeric - AInteger;
    END

    IF (IsNegative = 1) THEN
    BEGIN
      AInteger = - AInteger;
      AFraction = - AFraction;
    END
  END
  ELSE
  BEGIN
    AInteger = 0;
    AFraction = 0;
  END

  SUSPEND;
END