国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

計算兩個日期間的工作日

2019-11-18 17:39:30
字體：大 中 小
來源：轉載
供稿：網友
本示例的功能是如何計算給定的兩個日期之間的工作日，你可以選擇是否將星期六或星期日也包括進去。同時本程序還允許你可入一些假期，從而在計算時將這些假期排除在外。

函數：

PublicFunctionBusinessDateDiff(ByValdDate1AsDate,ByValdDate2AsDate)AsLong

該函數的功能是計算兩個日期（dDate1和dDate2）之間的工作日。下面的這些屬性允許你對計算實施控制，告訴程序如何進行計算。

屬性

PublicIncludeSaturdaysAsBoolean

當值為真，計算時將包括星期六，否則將星期六排除在外。

PublicIncludeSundaysAsBoolean

當值為真，計算時將包括星期日，否則將星期日排除在外。

Public
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

->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 汤阴县| 泸西县| 海兴县| 青海省| 临沧市| 宿迁市| 策勒县| 贺州市| 河池市| 东源县| 兖州市| 永靖县| 天峻县| 宁明县| 肥城市| 靖州| 连州市| 洮南市| 麟游县| 张家口市| 星子县| 宣武区| 南城县| 通城县| 墨玉县| 道真| 团风县| 沂源县| 蓬莱市| 丹东市| 隆化县| 高雄县| 和硕县| 吴堡县| 莱阳市| 凌云县| 新巴尔虎左旗| 咸宁市| 建德市| 苏尼特右旗| 龙陵县|