[Back to MISC SWAG index] [Back to Main SWAG index] [Original]

    {*****************************************************************************
     * Function ...... RTOI()
     * Purpose ....... To convert a real to an integer
     * Parameters .... RealNum    Real type number
     * Returns ....... The integer part of RealNum
     * Notes ......... Simply truncates the decimals
     *               . Uses function Left
     * Author ........ Martin Richardson
     * Date .......... May 13, 1992
     *****************************************************************************}
    FUNCTION RTOI( RealNum: REAL ): LONGINT;
    VAR
       s: STRING;
       l: LONGINT;
       i: INTEGER;
    BEGIN
         STR( RealNum:17:2, s );
         s := Left( s, LENGTH(s) - 3 );
         VAL( s, l, i );
         RTOI := l;
    END;

[Back to MISC SWAG index] [Back to Main SWAG index] [Original]