请教这个workdays的代码

sarfeilee

Function newNetWorkDays(BegDate As Date, EndDate As Date) As Integer

Dim DateCnt As Date
Dim EndDays As Date
Dim IntDays As Integer

DateCnt = DateValue(BegDate)

EndDays = DateValue(EndDate)

IntDays = 0

        
        Do While DateCnt <= EndDays
        
        
          If Format((IsNull(DLookup("id", "holiday", "&ETH;&Yacute;&Iuml;&cent;&Egrave;&Otilde;&AElig;&Uacute;=#" & DateCnt & "#"))) _
               And Format(DateCnt, "ddd") <> "Sun" And Format(DateCnt, "ddd") <> "Sat") Or _
              Format(Not IsNull(DLookup("id", "workday", "&frac14;&Oacute;°à&Egrave;&Otilde;&AElig;&Uacute;=#" & DateCnt & "#"))) Then
        
               IntDays = IntDays + 1

          End If

    DateCnt = DateAdd("d", 1, DateCnt)
   
      
   Loop
   

newNetWorkDays = IntDays - 1

End Function


这个代码能够计算出如果BegDate小于或等于EndDate的相差工作日，但是如果大于，则计算出的所有值都是-1，请问能够将负值也体现出差别多少工作日吗，而不是全部都显示-1

sarfeilee

这个乱码是引用holiday & workday两个表的日期字符段名称，对整个代码阅读没有影响，请帮忙解决一下我提的问题

sarfeilee

[:30] 有没有高人阿  麻烦指点阿  急！

sarfeilee

那么DateCnt >EndDays的代码应该怎么补充进去呢   高手！

sarfeilee

请看附件里的query1