CrazyJS,疯狂的JS

获取两段日期相交重合的部分

VB  获取两段日期相交重合的部分 有时候很有用,比如工资结算,承包天数计算、租金计算等等。 一个典型的例子是: 某公司出租某设备,每自然月费用为M元,不足一月按天计费。客户A 于s1时间开始租用该设备,于e1时间停止租用该设备。求,n年m月费用是多少? 解:案例难点在于计算收费设备实际使用的时间, 通过时间线分析可知,实际上就是求使用时间段 和 自然月计费时间段的交集(在该月内使用了多长时间) 即:(s1,e1)和(m月首日,m月末日)  集合的交集。 vb 伪代码: dim d1 as DateArea dim d2 as DateArea d1.s=s1 d1.e=e1 d2.s=cdate(#n-m-01#) d2.e=datedadd(d,-1,Date [...]