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