标题：[求助]求解代码如下

11楼

号子发表于：2008/12/30 18:09:00

8楼的只看到关联，没看到在哪设置“在位”与“不在位”啊，

12楼

lxl 发表于：2008/12/30 18:37:00

以下是引用号子在2008-12-30 18:09:00的发言：
8楼的只看到关联，没看到在哪设置“在位”与“不在位”啊，

表B 的D列是一个表达式列

13楼

lxl 发表于：2008/12/31 11:29:00

以下是引用舜风在2008-12-30 17:33:00的发言：
问题二:有谁能提供计算两日期之间有多少工作日的代码(不包括节假日,而只去公休呢)

Dim StartTime As Date = #1/1/2009#
Dim EndTime As Date =#1/5/2009#
Dim n As Integer = (EndTime - StartTime).days + 1     '这里两个Date相减,得到的是TimeSpan类型.
Dim weeks As Integer = n\7                                       '包含多少个整周
For i As Integer = 0 To (n Mod 7)                                '判断,去掉整周后,剩余几天是星期几
    Dim d As Date = EndTime.AddDays(-1*i)
    If d.DayOfweek = DayOfWeek.Sunday OrElse _
       d.DayOfweek = DayOfWeek.Saturday Then   '如果是周末
        n = n - 1
    End If
Next
n = n - weeks * 2
Return n

[此贴子已经被作者于2008-12-31 11:30:19编辑过]

14楼

舜风发表于：2008/12/31 12:03:00

收录,谢谢

共14 条记录, 每页显示 10 条, 页签: [1] [2]