如何在Crystal Report中使用公式将十进制小时数转换为时分格式

完整实现代码 #

local numbervar sum_hours := sum({Command.TotalHours});
// 拆分整数小时和小数部分
local numbervar int_hour := Truncate(sum_hours);
local numbervar fraction := sum_hours - int_hour;
// 小数部分转整数分钟：0.76*100=76，加Round避免浮点数精度误差
local numbervar total_min := Round(fraction * 100, 0);
// 计算分钟折算的小时增量和剩余分钟
local numbervar add_hour := Truncate(total_min / 60);
local numbervar remain_min := total_min mod 60;

// 输出数值格式509.16，用以下两行
local numbervar result := (int_hour + add_hour) + (remain_min / 100);
result;

// 如果需要输出文本格式「509小时16分钟」，注释上面两行，启用以下两行
// local stringvar result := CStr(int_hour + add_hour, 0) + "小时" + CStr(remain_min, "00") + "分钟";
// result;

关键逻辑说明 #

• 你之前只能得到0.76的核心原因是没有做小数到整数的换算，直接将两位小数部分乘以100取整即可得到对应的分钟数值
• Round函数用于规避浮点数计算精度问题，避免出现0.76被识别为0.7599999999导致换算后得到75分钟的异常
• 文本输出时用CStr(remain_min, "00")可以保证分钟不足10时自动补0，比如剩余5分钟会显示为05，最终输出格式为xx.05或xx小时05分钟

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