●function MonthsBetween(const ANow, AThen: TDateTime): Integer;
描述:
根据两个给定的TDateTime类型的参数ANow和AThen,MonthsBetween函数能得到两个日期在月份
上差距数。因为月份的天数是不同的,所以 MonthsBetween 函数返回的是一个近似值,该近似
值基于每个月份为 30.4375 天。不足一个月的数字将不被计算。
因此,例如,对于 2月1日 到 2月28日,MonthsBetween 返回的数值为 0。
同样,对于 2月1日 到 3月1日,MonthsBetween 返回的数值也是 0。
●function MonthSpan(const ANow, AThen: TDateTime): Double;
描述:
根据两个给定的TDateTime类型的参数ANow和AThen,MonthsBetween函数能得到两个日期在月份
上差距数。因为月份的天数是不同的,所以 MonthsBetween 函数返回的是一个近似值,该近似
值基于每个月份为 30.4375 天。与 MonthsBetween 函数不同,MonthsBetween函数不计算不足
一个月的数字,MonthSpan函数将会得到不足一个月的数字。
注意:此函数返回的类型为 Double
看函数实现:
function MonthsBetween(const ANow, AThen: TDateTime): Integer;
begin
Result := Trunc(MonthSpan(ANow, AThen));
end;
function MonthSpan(const ANow, AThen: TDateTime): Double;
begin
Result := DaySpan(ANow, AThen) / ApproxDaysPerMonth;
end;
var
ApproxDaysPerMonth: Double = 30.4375;
ApproxDaysPerYear: Double = 365.25;
因为函数只是计算近似值,所以计算出来的结果是有问题。
分享到:
相关推荐
加密的惨剧!慎用文件夹加密软件! 加密的惨剧!慎用文件夹加密软件!
把要删除的文件拖到这个文件上面即可。注意,这是强力删除。一定慎用,因为连垃圾箱都会没有的。
移动磁盘低格工具(慎用)移动磁盘低格工具(慎用)移动磁盘低格工具(慎用)
易语言处理事件命令慎用时钟版源码,处理事件命令慎用时钟版
SQL和MSDE清理小程序(慎用),SQL和MSDE清理小程序(慎用),SQL和MSDE清理小程序(慎用),
慎用六大软件伤硬盘最终版.pdf
冰冻精灵清除器慎用
慎用防止窜货的方法.doc
一些要慎用DOS命令.docx
玩客云 灯光控制 容易烧主板 慎用
慎用资本弱化防范税务风险.docx
慎用抗生素 刻不容缓 (小品).docx
保护电脑慎用六大软件伤硬盘
易语言处理事件命令慎用时钟版源码。@易语言源码分享站。
初中语文文摘生活老人慎用电子按摩器
初中语文文摘生活慎用何首乌治白发
易语言处理事件命令慎用线程版源码。@易语言源码分享站。