摘要： Function CountDays(Date1,Date2) On Error Resume Next Err.Clear da1=Date1 da2=Date2 DT1=FormatDateTime(Date1,2) DT2=FormatDateTime(Date2,2) Dim countNum countNum=DateDiff("d",DT1,DT2) For i=da1 to da2 If weekday(i)=1 or we... 阅读全文