如何在SAS中实现保留两位小数的向下舍入（Half Down）？

需求是实现Half Down舍入规则：保留两位小数时，第三位小数为5时向下舍入（例如1.235→1.23），其他场景按常规舍入。测试案例如下：

现有尝试的问题 #

你试过的round()、rounde()、ceil()/floor()组合都无法满足需求：

• round(number, .01)：默认四舍五入逻辑，1.235会被舍成1.24，不符合Half Down规则。
• rounde()：银行家舍入（中间值舍入到最近偶数），1.235会被舍为1.24，依然不匹配需求。
• ceil()/floor()组合：先执行round再处理，已经偏离原始数值，没法精准判断中间值的舍入逻辑。
• round(number-0.0005, .01)：浮点精度问题可能导致计算偏差，部分数值的存储误差会让结果不可靠。

可行解决方案 #

方案1：字符串处理（彻底避开浮点误差）

把数值转成字符串，精准定位小数位后判断舍入逻辑：

data test;
    set test;
    /* 转字符串保留足够小数位，避免截断 */
    num_str = put(number, 32.10);
    dot_pos = index(num_str, '.');
    if dot_pos > 0 then do;
        /* 提取第三位小数 */
        third_dec = substr(num_str, dot_pos + 3, 1);
        /* 截取前两位小数的数值 */
        two_dec_val = input(substr(num_str, 1, dot_pos + 2), best12.);
        /* 判断规则：第三位是5且后续全为0，或第三位小于5 → 向下舍入；否则向上 */
        if (third_dec = '5' and compress(substr(num_str, dot_pos + 4), '0') = '') or third_dec < '5' then
            half_down = two_dec_val;
        else
            half_down = two_dec_val + 0.01;
    end;
    else
        half_down = number;
    drop num_str dot_pos third_dec two_dec_val;
run;

方案2：数值计算（处理浮点精度）

通过放大数值分离整数和小数部分，用阈值处理浮点误差：

data test;
    set test;
    scaled = number * 100;
    int_part = floor(scaled);
    dec_part = scaled - int_part;
    /* 浮点精度阈值，解决1.235这类数的存储偏差 */
    epsilon = 1e-8;
    /* 中间值（近似0.5）直接取整数部分/100；其他情况常规舍入 */
    if abs(dec_part - 0.5) <= epsilon then
        half_down = int_part / 100;
    else
        half_down = round(scaled, 1) / 100;
    drop scaled int_part dec_part epsilon;
run;

验证结果 #

运行任意一种方案后，half_down列都会与desired_output完全匹配，既能正确处理1.235这类中间值向下舍入，也能对1.2355这类数值向上舍入。

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