[已解决]谢谢cbg2008 老师。如何计算不含周六周日的天数

lhj323323

老师，
需求如题，请看附件，谢谢

另外，如果两个时间点之间，还有节假日，如何将这些节假日也扣减。
时间间隔2.rar (8.84 KB, 下载次数: 6)

2012-9-8 21:36 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

cbg2008

2012-9-8 21:50

1. Private Sub CommandButton1_Click()
   
2.     Dim i As Long, j As Long
   
3.     Range("C2").Value = Sheet2.Range("B65536").End(xlUp).Value
   
4.     Range("C3").Value = Format(Date, "yyyy-mm-dd")
   
5.     Range("C4").Value = Date - Sheet2.Range("B65536").End(xlUp).Value
   
6.     For i = CLng(Range("c2").Value) To CLng(Date)
   
7.         If Weekday(VBA.CDate(i)) = 7 Or Weekday(CDate(i)) = 1 Then
   
8.             j = j + 1
   
9.         End If
   
10.     Next
    
11.     Range("c5").Value = Range("c4") - j
    
12. End Sub

复制代码

跳转到最佳答案楼层

cbg2008

1. Private Sub CommandButton1_Click()
   
2.     Dim i As Long, j As Long
   
3.     Range("C2").Value = Sheet2.Range("B65536").End(xlUp).Value
   
4.     Range("C3").Value = Format(Date, "yyyy-mm-dd")
   
5.     Range("C4").Value = Date - Sheet2.Range("B65536").End(xlUp).Value
   
6.     For i = CLng(Range("c2").Value) To CLng(Date)
   
7.         If Weekday(VBA.CDate(i)) = 7 Or Weekday(CDate(i)) = 1 Then
   
8.             j = j + 1
   
9.         End If
   
10.     Next
    
11.     Range("c5").Value = Range("c4") - j
    
12. End Sub

复制代码