<<< 返回 access911.net 编程静态资料库索引页

如何计算两个日期之间的工作日

 

作者:  摘自:  录入:cg1  时间:2003-9-10  浏览人次:1974


专题地址:http://access911.net/fixhtm/78FAB01E1BDC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 


计算两个日期间的工作日 (未验证)
本示例的功能是如何计算给定的两个日期之间的工作日,你可以选择是否将星期六或星期日也包括进去。同时本程序还允许你可入一些假期,从而在计算时将这些假期排除在外。

函数:

Public Function BusinessDateDiff(ByVal dDate1 As Date, ByVal dDate2 As Date) As Long 

该函数的功能是计算两个日期(dDate1和dDate2)之间的工作日。下面的这些属性允许你对计算实施控制,告诉程序如何进行计算。

属性

Public IncludeSaturdays As Boolean

当值为真,计算时将包括星期六,否则将星期六排除在外。

Public IncludeSundays As Boolean

当值为真,计算时将包括星期日,否则将星期日排除在外。

Public Property Let IncludeFirstDate(bInc As Boolean) Public Property 
Get IncludeFirstDate() As Boolean

在默认情况下,BusinessDateDiff函数会将你输入的起始日包括在计算中,但不包括你输入的终止日。将该属性值设为假,计算时就不包括你输入的起始日。

Publi.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/78FAB01E1BDC.htm

 


上一篇:4 种常用加密算法-6-rsa

下一篇:在VB中调用CHM 帮助的几种方法 

2017年2月22日生成静态资料