什么是“银行家舍入”呢,定义如下:
“四舍六入五考虑,五后非零就进一,五后为零看奇偶,五前为偶应舍去,五前为奇要进一”。这个四舍五入法是一个国际标准,大部分的编程软件都使用的是这种方法,据说国际上一般都是用这种方法的。
如果在ExcelVBA中进行四舍五入处理,也可以直接调用Excel工作表函数,达到直接四舍五入的目的Application.Round(A,B)
===============================

附:DateDiff 函数用法

DateDiff(interval,Date1,Date2[,firstweekofyear[,firstweekofyear]])
返回一个Variant(long) 的值,表示两个指定日期间的时间间隔数目
interval:设定两个日期之间的期间计算之单位。譬如>interval="m"表示计算的单位为月。>interval的设定值如:
yyyy>Year年
qQuarter季
mMonth月
dDay日
wWeekday星期
hHour时
nMinute分
sSecond秒
Date1,Date2:计算期间的两个日期表达式,若>date1较早,则两个日期之间的期间结果为正值;若>date2较早,则结果为负值。
firstweekofyear:设定每周第一天为星期几,若未设定表示为星期天。>FW的设定值如下:
0使用>API的设定值。
1星期天
2星期一
3星期二
4星期三
5星期四
6星期五
7星期六
firstweekofyear:设定一年的第一周,若未设定则表示一月一日那一周为一年的第一周。>FY的设定值如下:
0使用>API的设定值。
1一月一日那一周为一年的第一周
2至少包括四天的第一周为一年的第一周
3包括七天的第一周为一年的第一周
示例如下:
计算两个日期的相隔月数.
DiffMonthL = DateDiff("M", DATE_start, DATE_end)