asp實現(xiàn)計算兩個時間內(nèi)的工作日的函數(shù)
更新時間：2007年08月08日 12:12:14 作者：
<%
'******************************
'函數(shù)：workdays(date_begin , date_end)
'參數(shù)：date_begin,開始日期；date_end,結(jié)束日期
'作者：阿里西西
'日期：2007/7/15
'描述：計算兩個時間內(nèi)的工作日
'示例：workdays("2007-05-18" , "2007-05-21")
'******************************
function workdays(date_begin , date_end)
date_begin = CDate(date_begin)
date_end = CDate(date_end)
if IsDate(date_begin) and IsDate(date_end) then
workdays = 0
for d=0 to datediff("d" , date_begin , date_end)
if weekday(date_begin + d) <> 1 and weekday(date_begin + d) <> 7 then
workdays = workdays + 1
end if
next
else
workdays = "未知"
end if
end function
%>
'******************************
'函數(shù)：workdays(date_begin , date_end)
'參數(shù)：date_begin,開始日期；date_end,結(jié)束日期
'作者：阿里西西
'日期：2007/7/15
'描述：計算兩個時間內(nèi)的工作日
'示例：workdays("2007-05-18" , "2007-05-21")
'******************************
function workdays(date_begin , date_end)
date_begin = CDate(date_begin)
date_end = CDate(date_end)
if IsDate(date_begin) and IsDate(date_end) then
workdays = 0
for d=0 to datediff("d" , date_begin , date_end)
if weekday(date_begin + d) <> 1 and weekday(date_begin + d) <> 7 then
workdays = workdays + 1
end if
next
else
workdays = "未知"
end if
end function
%>
相關文章
asp中COM組件中如何連接數(shù)據(jù)庫的代碼...2007-03-03
在asp中通過getrows實現(xiàn)數(shù)據(jù)庫記錄分頁的一段代碼
在asp中通過getrows實現(xiàn)數(shù)據(jù)庫記錄分頁的一段代碼...2006-11-11
asp編程中常用的javascript輔助代碼...2007-11-11
運行asp是提示Microsoft OLE DB Provider for ODBC Drivers (0x80004005)[Microsoft][ODBC Microsoft Access Driver] 找不到文件 '(未知的)'。2009-12-12
最近在寫一個采集程序，需要下載目標站的附件，不過目標站文件下載速度很慢，于是想到能否調(diào)用迅雷來下載2008-07-07
asp 支付接口，包括99bill,支付寶，騰訊拍拍，chinabank，yeepay的支付接口。2009-12-12
微信公眾號可通過現(xiàn)金紅包接口發(fā)放微信支付現(xiàn)金紅包(附開發(fā)教程)
這篇文章主要介紹了微信公眾號可通過現(xiàn)金紅包接口發(fā)放微信支付現(xiàn)金紅包的相關資料,需要的朋友可以參考下2016-09-09
最近做一套程序的時候，客戶要求當有新信息的時候播放一段語音來提示一下，根據(jù)情況，總結(jié)思路如下2009-06-06
上篇文字PHP使用Google的translate API寫了以后，突然想做個ASP的類，以致asp用戶使用。遂寫起，發(fā)現(xiàn)asp忘了不少。如主題吧，思路和C#的這篇是完全一樣的，我只是把它兌成ASP的實現(xiàn)方式而已。2008-12-12
這篇文章主要針對有一定asp編程經(jīng)驗和SQL語句基礎的愛好者如何實現(xiàn)后臺管理時，批量刪除多條記錄的方法。2009-04-04