按不同百分比分配货币时的舍入差额调整问题求助

在销售报告的资金池分配场景中，按6组固定百分比（总和为100%）拆分总额时，因会计要求保留两位小数舍入，常会出现分配后总和与原总额的分位差额。

问题示例 #

初始分配代码 #

# TOTAL
total <- 12345.02

# PERCENT ALLOCATIONS
perA <- .12
perB <- .23
perC <- .22
perD <- .13
perE <- .11
perF <- .19

# ALLOCATIONS
amtA <- total * perA
amtB <- total * perB
amtC <- total * perC
amtD <- total * perD
amtE <- total * perE
amtF <- total * perF

舍入后的差额情况 #

使用formattable包的accounting函数舍入后，总和与原总额出现2分的差额：

library(formattable)

accounting(amtA) = $ 1,481.40
accounting(amtB) = $ 2,839.35
accounting(amtC) = $ 2,715.90
accounting(amtD) = $ 1,604.85
accounting(amtE) = $ 1,357.95
accounting(amtF) = $ 2,345.55
-----------------------------
sum              = $12,345.00 =/= $12,345.02

需求说明 #

需要检查舍入后的分配额总和与原总额的差额，按指定顺序E,A,C,B,D,F分配剩余资金，替代现有存在40种错误情况的字符匹配方案，寻求更简洁的数值计算方法。

解决方案：基于优先级顺序的差额调整 #

直接通过数值计算调整，逻辑简洁且无匹配错误，步骤如下：

1. 计算各部分未舍入的分配金额
2. 对金额进行两位小数舍入，计算与原总额的差额
3. 按指定优先级顺序，逐个给对应项增减0.01，直至差额完全抹平

实现代码 #

# 定义总额与分配百分比（已按调整顺序E,A,C,B,D,F排列）
total <- 12345.02
pers <- c(E = 0.11, A = 0.12, C = 0.22, B = 0.23, D = 0.13, F = 0.19)

# 计算未舍入的分配金额
amts <- total * pers

# 先进行常规两位小数舍入
rounded_amts <- round(amts, 2)

# 计算差额：原总额 - 舍入后总和
diff <- total - sum(rounded_amts)

# 按指定顺序调整差额：diff为正则加0.01，为负则减0.01
adjust_order <- names(pers)
i <- 1
while(abs(diff) > 1e-6) { # 用极小值避免浮点精度问题
  rounded_amts[adjust_order[i]] <- rounded_amts[adjust_order[i]] + sign(diff) * 0.01
  diff <- total - sum(rounded_amts)
  i <- i + 1
}

# 验证结果：总和与原总额一致
cat("调整后总和：", sum(rounded_amts), "\n")
cat("原总额：", total, "\n")
cat("是否一致：", sum(rounded_amts) == total, "\n")

# 查看调整后的各分配金额
rounded_amts

代码说明 #

• 提前按调整优先级排列百分比，避免后续排序操作
• 使用sign(diff)自动判断是加还是减0.01，适配差额正负两种情况
• 用1e-6作为循环终止条件，规避浮点计算的精度误差

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