01.
Dim
strStartDate
02.
Dim
strEndDate
03.
Dim
i
04.
Dim
WrkDate
05.
Dim
HolDay
06.
strStartDate =
"01-Feb-2012"
07.
strEndDate =
"25-Feb-2012"
08.
WrkDate = 0
09.
HolDay = 0
10.
11.
For
i =
CDate
(strStartDate)
To
CDate
(strEndDate)
12.
IF Cint(Weekday(i)) = 1 OR Cint(Weekday(i)) = 7
Then
13.
HolDay = HolDay + 1
14.
Else
15.
WrkDate = WrkDate + 1
16.
End
IF
17.
Next
18.
19.
Response.write(
"<br> Work Day = "
& WrkDate)
20.
Response.write(
"<br> Holiday = "
& HolDay)