เขียน funtion datetimediff ไม่นับรวม เสาร์-อาทิตย์ ทำไงค่ะ

Dim strStartDate
Dim strEndDate
Dim i
Dim WrkDate
Dim HolDay
strStartDate = "01-Feb-2012"
strEndDate = "25-Feb-2012"
WrkDate = 0
HolDay = 0

For i = CDate(strStartDate)  To CDate(strEndDate)
	IF Cint(Weekday(i)) = 1 OR Cint(Weekday(i)) = 7 Then
		HolDay = HolDay + 1
	Else
		WrkDate = WrkDate + 1
	End IF
Next

Response.write("<br> Work Day = " & WrkDate)
Response.write("<br> Holiday  = " & HolDay)