本示例的功能是如何计算给定的两个日期之间的工作日,你可以选择是否将星期六或星期日也包括进去。同时本程序还允许你可入一些假期,从而在计算时将这些假期排除在外。
函数:
PublicFunctionBusinessDateDiff(ByValdDate1AsDate,ByValdDate2AsDate)AsLong
该函数的功能是计算两个日期(dDate1和dDate2)之间的工作日。下面的这些属性允许你对计算实施控制,告诉程序如何进行计算。
属性
PublicIncludeSaturdaysAsBoolean
当值为真,计算时将包括星期六,否则将星期六排除在外。
PublicIncludeSundaysAsBoolean
当值为真,计算时将包括星期日,否则将星期日排除在外。
PublicPropertyLetIncludeFirstDate(bIncAsBoolean)PublicProperty
GetIncludeFirstDate()AsBoolean
...[ 查看全文 ]