如何自动计算工作日？

kevinchan2006 · 发表于 2012-11-30 18:32

本帖最后由 kevinchan2006 于 2012-11-30 18:33 编辑

如下图，我想知道某项工作所持续的天数，以及工作天数（即不算周六和周日），需要如何处理？
计算所持续的天数很简单，使用公式直接相减就可以了，但是如何计算工作天数（工作日）呢？有没有办法使用公式或者VBA解决啊？

clarezhang · 发表于 2012-11-30 18:59

试试NETWORKDAYS

longwin · 发表于 2012-11-30 19:14

用自定义函数吧：

工作日.rar (11.85 KB, 下载次数: 17)
Function gzr(d1 As Date, d2 As Date) As Long

If d1 >= d2 Then
      dd = d2
Else
      dd = d1
End If

jgts = Abs(d2 - d1)

xxr = 0
For i = 1 To jgts
      If Weekday(dd + i) = 1 Or Weekday(dd + i) = 7 Then
         xxr = xxr + 1
      End If
Next i

gzr = jgts - xxr

End Function

zez · 发表于 2012-11-30 19:19

不知道楼主的计算方法。从11月1日到11月6日应该是6天，楼主为何只算5天，工作日应该是4天，为何只算3天？
按照楼主的计算方法：
C2=B2-A2
D2=SUM(IF(ROW($1:$65536)<A2,0,IF(ROW($1:$65536)>B2,0,IF(MOD(ROW($1:$65536),7)<2,0,1))))-1（数组公式)

longwin · 发表于 2012-11-30 19:22

clarezhang 发表于 2012-11-30 18:59
试试NETWORKDAYS

学习了,正解！！

kevinchan2006 · 发表于 2012-12-2 11:27

longwin 发表于 2012-11-30 19:22
学习了,正解！！

多谢！搞定了！用networkdays最简单！

		自动登录	找回密码
密码			免费注册

[求助] 如何自动计算工作日？