请教这个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

andymark

贴出的代码部分乱码，请修正一下

sarfeilee

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

sarfeilee

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

andymark

因为根本就没查到数据，返回值为0, newNetWorkDays = IntDays - 1
上面语句查询天为0时 返回结果为-1

andymark

你举个例子就行吧

sarfeilee

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

andymark

把参数改为：
Do While DateCnt < EndDays

datecnt是最小的日期，enddays的最大的日期

andymark

同时删除下面这句话
newNetWorkDays = IntDays - 1

andymark

如果看不明白，或者返回错误结果的，建议上传例子