日期:2014-05-17  浏览次数:21069 次

这里人气旺,100分求解(想发200分的,发不出)

求实现两日期间的工作日天数(星期六和星期天为休息日),如2007-8-1到2007-9-1之间的工作天数为几天?
并且可以计算从某天起,工作天数为N天的日期人(例如:从2007-8-1起第100个工作日的日期是什么时候)。
谢谢。


------解决方案--------------------
DateDiff 函数
返回两个日期之间的时间间隔。

DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])

DateDiff 函数的语法有以下参数:

参数
interval

必选项。String expression 表示用于计算 date1 和 date2 之间的时间间隔。有关数值,请参阅“设置”部分。

date1, date2

必选项。日期表达式。用于计算的两个日期。

Firstdayofweek

可选项。指定星期中第一天的常数。如果没有指定,则默认为星期日。有关数值,请参阅“设置”部分。

Firstweekofyear

可选项。指定一年中第一周的常数。如果没有指定,则默认为 1 月 1 日所在的星期。有关数值,请参阅“设置”部分。

设置
interval 参数可以有以下值:

设置 描述
yyyy 年
q 季度
n 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 小时
m 分钟
s 秒


firstdayofweek 参数可以有以下值:

常数 值 描述
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
vbSunday 1 星期日(默认)
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六


firstweekofyear 参数可以有以下值:

常数 值 描述
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
vbFirstJan1 1 由 1 月 1 日所在的星期开始(默认)。
vbFirstFourDays 2 由在新年中至少有四天的第一周开始。
vbFirstFullWeek 3 由在新的一年中第一个完整的周开始。


说明
DateDiff 函数用于判断在两个日期之间存在的指定时间间隔的数目。例如可以使用 DateDiff 计算两个日期相差的天数,或者当天到当年最后一天之间的星期数。

要计算 date1 和 date2 相差的天数,可以使用“一年的日数”(“y”)或“日”(“d”)。当 interval 为“一周的日数”(“w”)时,DateDiff 返回两个日期之间的星期数。如果 date1 是星期一,则 DateDiff 计算到 date2 之前星期一的数目。此结果包含 date2 而不包含 date1。如果 interval 是“周”(“ww”),则 DateDiff 函数返回日历表中两个日期之间的星期数。函数计算 date1 和 date2 之间星期日的数目。如果 date2 是星期日,DateDiff 将计算 date2,但即使 date1 是星期日,也不会计算 date1。

如果 date1 晚于 date2,则 DateDiff 函数返回负数。

firstdayofweek 参数会对使用“w”和“ww”间隔符号的计算产生影响。

如果 date1 或 date2 是日期文字,则指定的年度会成为日期的固定部分。但是如果 date1 或 date2 被包括在引号 ( " ") 中并且省略年份,则在代码中每次计算 date1 或 date2 表达式时,将插入当前年份。这样就可以编写适用于不同年份的程序代码。

在 interval 为“年”(“yyyy”)时,比较 12 月 31 日和来年的 1 月 1 日,虽然实际上只相差一天,DateDiff 返回 1 表示相差一个年份。

下面的示例利用 DateDiff 函数显示今天与给定日期之间间隔天数:

Function DiffADate(theDate)
DiffADate = "从当天开始的天数: " & DateDiff( "d ", Now, theDate)
End Function
要求
版本2

请参阅
DateAdd 函数 | DatePart 函数


------解决方案--------------------
function jCount(dateStart,dateEnd)
dateCount = datediff( "d ",dateStart,dateEnd)+1
weekStart = datepart( "w ",dateStart)
startTmp = dateStart
sum=0
for i = 1 to dateCount
if datepart( "w ",startTmp)> =2 and datepart( "w ",startTmp) <=6 then
sum = sum + 1
end if
startTmp = dateadd( "d ",1,startTmp)
next
jCount = sum
end function
response.write(jCount( "2007-2-1 ", "2007-3-1 ") & " <br> ")
function jDate(dateStart,jCount)
weekStart = datepart( "w ",dateStart)
startTmp = dateStart
sum=0
do while sum <jCount
if datepart( "w ",startTmp)> =2 and datepart( "w ",startTmp) <=6 then
response.write(startTmp & " <br> ")
sum = sum + 1
end if
startTmp = dateadd( "d ",1,startTmp)
loop
end function
call jDate( "2007-2-1 ",4)