FoxPro中如何实现Excel ROUNDUP与ROUNDDOWN函数的等效功能

你之前用的ROUND(val + 0.005,2)方法存在局限性：仅适用于正数且小数部分超过两位的场景，当原数值小数位数≤2时，会错误进位（比如ROUND(20.01+0.005,2)得到20.02，不符合Excel ROUNDUP(20.01,2)返回20.01的预期）。下面提供通用的实现方案，同时覆盖正负数值的情况：

1. 实现ROUNDUP函数 #

Excel的ROUNDUP是向远离0的方向舍入：正数向上进位，负数向更负的方向进位。可以通过CEILING和FLOOR函数结合乘除运算实现：

FUNCTION RoundUp(tnValue, tnDecimals)
    LOCAL lnFactor
    lnFactor = 10^tnDecimals  // 计算10的小数位数次方，用于缩放数值
    IF tnValue > 0
        RETURN CEILING(tnValue * lnFactor) / lnFactor  // 正数用CEILING向上取整后还原
    ELSE
        RETURN FLOOR(tnValue * lnFactor) / lnFactor    // 负数用FLOOR向更负方向取整后还原
    ENDIF
ENDFUNC

测试示例： #

• RoundUp(20.01, 2) → 返回20.01（符合Excel预期）
• RoundUp(20.011, 2) → 返回20.02（正确向上进位）
• RoundUp(-20.011, 2) → 返回-20.02（向远离0的方向舍入）

2. 实现ROUNDDOWN函数 #

Excel的ROUNDDOWN是向靠近0的方向舍入：正数截断多余小数，负数向0的方向截断。用FLOOR和CEILING反向处理：

FUNCTION RoundDown(tnValue, tnDecimals)
    LOCAL lnFactor
    lnFactor = 10^tnDecimals
    IF tnValue > 0
        RETURN FLOOR(tnValue * lnFactor) / lnFactor  // 正数用FLOOR截断小数
    ELSE
        RETURN CEILING(tnValue * lnFactor) / lnFactor // 负数用CEILING向0方向截断
    ENDIF
ENDFUNC

测试示例： #

• RoundDown(20.019, 2) → 返回20.01（截断多余小数）
• RoundDown(-20.019, 2) → 返回-20.01（向0方向截断）

关于判断小数位数的思路 #

如果一定要判断数值的小数位数，可以通过字符串转换实现，但需注意浮点数精度问题（部分数值可能因存储精度导致字符串显示异常）：

FUNCTION GetDecimalPlaces(tnValue)
    LOCAL lcStr, lnPos
    lcStr = TRANSFORM(tnValue)
    lnPos = AT('.', lcStr)
    IF lnPos = 0
        RETURN 0
    ELSE
        RETURN LEN(lcStr) - lnPos
    ENDIF
ENDFUNC

不过相比这种方法，前面的数学运算实现更可靠，无需额外判断即可覆盖所有场景。

内容的提问来源于stack exchange，提问作者DizzleBeans