知道起止日期值，如何获得中间的工作日数目？

[smjasmine]

知道起止日期值，如何获得中间的工作日数目？即自动计算出起止日期间去除周末周六的正常工作日数目？

如2003-8-20到2003-8-27之间的工作日为5

解决立刻给分。

[wolf004]

da=DateDiff("d",#2003-8-20#,#2003-8-27#)

[csdntoll]

DateDiff()

函数返回两个日期之间的差值 。

表达式 DateDiff(timeinterval,date1,date2 [, firstdayofweek [, firstweekofyear]])

允许数据类型: timeinterval 表示相隔时间的类型，如“M“表示“月”。

实例： <%

fromDate = #9/9/00#

toDate = #1/1/2000#

response.write "There are " & _

DateDiff("d",fromDate,toDate) & _

" days to millenium from 9/9/00."

%>

返回结果: 从9/9/00 到2000年还有 150 天.

[pp4u]

同上

[smjasmine]

老大，要求的是工作日数目！

[wolf004]

你说了，知道起止日期值
那么就简单多了！
star=WeekDay(＃开始时间＃)
end=weekday(#结束时间#)
dat=DateDiff("d",#开始时间#,#结束时间#)-(DateDiff("d",#开始时间#,#结束时间#) mod 6)*(end-star)
dat就是要的天数了，除去了星期六和星期天了！

[wolf004]

你说了，知道起止日期值
那么就简单多了！
star=WeekDay(＃开始时间＃)
end=weekday(#结束时间#)
t=DateDiff("d",#开始时间#,#结束时间#)
dat=t-(t\6)*2
应该这样的！

[cloudchen]

送给你~~~刚写的，放入开始日期和结束日期就可以了，数据类型为Date
<SCRIPT LANGUAGE="VBScript">
Option Explicit
alert("这段期间工作日有："&WorkingDayCount(#2003-8-20#,#2003-8-27#)&"天")

Function WorkingDayCount(startDay,endDay)
Dim dayCount,i,wdc
dayCount=DateDiff("d",startDay,endDay)
For i = 0 To dayCount
If (weekday(DateAdd("d",i,startDay),1)-1) mod 6 Then
wdc = wdc + 1
End If
Next
WorkingDayCount = wdc
End Function
</SCRIPT>