计算两个日期间的工作日
2006-02-27 11:53:50 来源：WEB开发网 闂傚倸鍊搁崐椋庢濮橆兗缂氱憸宥堢亱闂佸湱铏庨崰鏍不椤栫偞鐓ラ柣鏇炲€圭€氾拷
闂傚倸鍊搁崐椋庣矆娓氣偓楠炲鏁撻悩鎻掔€梺姹囧灩閻忔艾鐣烽弻銉︾厵闁规鍠栭。濂告煕鎼达紕校闁靛洤瀚伴獮鎺楀箣濠靛啫浜鹃柣銏⑶圭壕濠氭煙閻愵剚鐏辨俊鎻掔墛缁绘盯宕卞Δ鍐冣剝绻涘畝濠佺敖缂佽鲸鎹囧畷鎺戭潩閹典焦鐎搁梻浣烘嚀閸ゆ牠骞忛敓锟�
婵犵數濮烽弫鍛婃叏椤撱垹绠柛鎰靛枛瀹告繃銇勯幘瀵哥畼闁硅娲熷缁樼瑹閳ь剙岣胯鐓ら柕鍫濇偪濞差亜惟闁宠桨鑳堕崝锕€顪冮妶鍡楃瑐闁煎啿鐖奸崺濠囧即閵忥紕鍘梺鎼炲劗閺呮稒绂掕缁辨帗娼忛埡浣锋闂佽桨鐒﹂幑鍥极閹剧粯鏅搁柨鐕傛嫹闂傚倸鍊搁崐椋庢濮橆兗缂氱憸宥堢亱闂佸湱铏庨崰鏍不椤栫偞鐓ラ柣鏇炲€圭€氾拷 闂傚倸鍊搁崐鐑芥嚄閼哥數浠氱紓鍌欒兌缁垶銆冮崨鏉戠厺鐎广儱顦崡鎶芥煏韫囨洖校闁诲寒鍓熷铏圭磼濡搫顫嶅銈嗗姉閸樠囧煡婢跺á鐔兼煥鐎ｎ兘鍋撴繝姘拺鐟滅増甯掓禍浼存煕閹惧鈽夐柍缁樻煥椤繈鎳滅喊妯诲闂備礁鎲＄粙鎴︺偑閺夋垟鏋旈柡鍐ｅ亾缂佺粯绋撴禒锕傚磼濮橆剦鐎抽梻浣哥－缁垶骞戦崶顒傚祦閻庯綆浜栭弨浠嬫煙闁箑澧い鏂垮€规穱濠囨倷椤忓嫧鍋撻弽褜娼栧┑鐘宠壘閸屻劎鎲歌箛娑樼疅闁圭虎鍠楅弲鎼佹煥閻曞倹瀚�
函数：
PublicFunctionBusinessDateDiff(ByValdDate1AsDate,ByValdDate2AsDate)AsLong
该函数的功能是计算两个日期（dDate1和dDate2）之间的工作日。下面的这些属性允许你对计算实施控制，告诉程序如何进行计算。
属性
PublicIncludeSaturdaysAsBoolean
当值为真，计算时将包括星期六，否则将星期六排除在外。
PublicIncludeSundaysAsBoolean
当值为真，计算时将包括星期日，否则将星期日排除在外。
PublicPRopertyLetIncludeFirstDate(bIncAsBoolean)PublicProperty
GetIncludeFirstDate()AsBoolean
在默认情况下，BusinessDateDiff函数会将你输入的起始日包括在计算中，但不包括你输入的终止日。将该属性值设为假，计算时就不包括你输入的起始日。
PublicPropertyLetIncludeLastDate(bIncAsBoolean)
PublicPropertyGetIncludeLastDate()AsBoolean
在默认情况下，BusinessDateDiff函数不包括你输入的最后一天。将该属性值设为真，程序把你输入的最后一天包括在计算中。
方法
PublicSubHolidayAdd(dHolidayAsDate)
添加一个假期列表，以便在计算时排除这些假期。在默认情况下，没有添加任何假期。
PublicSubHolidayRemove(dHolidayAsDate)
从假期列表移除假期
PublicSubHolidayClear()
清除全部假期列表
代码清单
首先建立一个新的类模块，名为cBusinessDates，将下面的代码粘贴进去。
OptionExplicit
PublicIncludeSaturdaysAsBoolean
PublicIncludeSundaysAsBoolean
PrivatembIncludeFirstDateAsBoolean
PrivatembIncludeLastDateAsBoolean
PrivateHolidaysAsNewCollection
PublicSubHolidayAdd(dHolidayAsDate)
OnErrorResumeNext
Holidays.AdddHoliday,"D"&dHoliday
IfErrThen
Err.Clear
EndIf
EndSub
PublicSubHolidayRemove(dHolidayAsDate)
OnErrorResumeNext
Holidays.Remove"D"&dHoliday
IfErrThen
Err.Clear
EndIf
EndSub
PublicSubHolidayClear()
DimxAsLong
Forx=1ToHolidays.Count
Holidays.Remove1
Next
EndSub
PublicPropertyLetIncludeFirstDate(bIncAsBoolean)
mbIncludeFirstDate=bInc
EndProperty
PublicPropertyLetIncludeLastDate(bIncAsBoolean)
mbIncludeLastDate=bInc
EndProperty
PublicPropertyGetIncludeFirstDate()AsBoolean
IncludeFirstDate=mbIncludeFirstDate
EndProperty
PublicPropertyGetIncludeLastDate()AsBoolean
IncludeLastDate=mbIncludeLastDate
EndProperty
'该函数不把dDate2包含在计算中，如果dDate2是星期日，而你又选择了计算星期日，该日期仍不计算在内。
PublicFunctionBusinessDateDiff(ByValdDate1AsDate,ByValdDate2AsDate)AsLong
DimdCurDateAsDate
DimdLastDateAsDate
DimdFirstDateAsDate
DimlDayCountAsLong
DimeDayAsVbDayOfWeek
DimdHolidayAsVariant
'调整应将哪一个日期包括在计算中（第一个还是第二个）
IfIncludeFirstDateThen
dFirstDate=dDate1
Else
dFirstDate=dDate1 1
EndIf
IfIncludeLastDateThen
dLastDate=dDate2 1
Else
dLastDate=dDate2
EndIf
'在所有日期中循环，并更新日期计数
dCurDate=dFirstDate
DoWhiledCurDate<>dLastDate
eDay=WeekDay(dCurDate)
IfIncludeSaturdaysAndeDay=vbSaturdayThen
lDayCount=lDayCount 1
EndIf
IfIncludeSundaysAndeDay=vbSundayThen
lDayCount=lDayCount 1
EndIf
IfeDay>=vbMondayAndeDay<=vbFridayThen
lDayCount=lDayCount 1
EndIf
dCurDate=dCurDate 1
Loop
'根据假期调整日期计数
ForEachdHolidayInHolidays
'如果假期在你所输入的日期范围之内
IfCDate(dHoliday)>=dFirstDateAndCDate(dHoliday)<=dLastDateThen
eDay=WeekDay(CDate(dHoliday))
IfIncludeSaturdaysAndeDay=vbSaturdayThen
lDayCount=lDayCount-1
EndIf
IfIncludeSundaysAndeDay=vbSundayThen
lDayCount=lDayCount-1
EndIf
IfeDay>=vbMondayAndeDay<=vbFridayThen
lDayCount=lDayCount-1
EndIf
EndIf
Next
BusinessDateDiff=lDayCount
EndFunction
PrivateSubClass_Initialize()
IncludeFirstDate=True
IncludeLastDate=False
IncludeSundays=False
IncludeSaturdays=False
EndSub
中查找“计算两个日期间的工作日”更多相关内容
中查找“计算两个日期间的工作日”更多相关内容更多精彩
赞助商链接
