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

有时候很有用,比如工资结算,承包天数计算、租金计算等等。

一个典型的例子是:

某公司出租某设备,每自然月费用为M元,不足一月按天计费。客户A 于s1时间开始租用该设备,于e1时间停止租用该设备。求,n年m月费用是多少?

解:案例难点在于计算收费设备实际使用的时间, 通过时间线分析可知,实际上就是求使用时间段 和 自然月计费时间段的交集(在该月内使用了多长时间)

即:(s1,e1)(m月首日,m月末日)  集合的交集。


vb 伪代码: