如何计算某一时段内有几个周六日？

yanwei82123300

清明节1天，端午1天，八月十五 1天 春节3天

Henry D. Sy

yanwei82123300 发表于 2012-6-26 16:49
五一 1天 十一 3天 元旦 1天，注意休息！！谢谢

1. '---------------------------------------------------------------------------------------
   
2. ' Procedure : DeliveryDay
   
3. ' DateTime  : 2012-6-25 23:25
   
4. ' Author    : Henry D. Sy
   
5. ' 参数      : OrderDate 下单日期
   
6. '
   
7. '           : intPeriod 交货周期（以天为单位）
   
8. '
   
9. '根据下单日期及交货周期计算剔除非工作日（周六，日）以及五一，国庆，元旦之交货日期
   
10. '按理：交货日期=下单日期+周期+非工作日天数，但加上这段额外的天数中也许又有周六日
    
11. '本例的重点就是利用递归函数来计算这非工作日中的非工作日.....
    
12. '---------------------------------------------------------------------------------------
    
13. '
    
14. Public Function DeliveryDay(OrderDate As Date, intPeriod As Integer) As Date
    
15. 
    
16.     Dim i As Integer          '循环变量
    
17. 
    
18.     Dim NWD As Integer        '保存非工作日天数(Non_Work_Days)
    
19. 
    
20.     Dim myDate As Date        '生产期间每天的日期，用来判断是否为NWD
    
21. 
    
22.     Dim gDate As Date         '计算过程中的临时日期值
    
23. 
    
24.     On Error GoTo DeliveryDay_Error
    
25. 
    
26.     For i = 1 To intPeriod    '这里i取值从1开始，不考虑0，因为接单当日无需判断是否工作日
    
27. 
    
28.         myDate = DateAdd("d", i, OrderDate)
    
29.         If Weekday(myDate) = 1 Or Weekday(myDate) = 7 Then
    
30.             NWD = NWD + 1
    
31.         End If
    
32.         '下面考虑五一，国庆，元旦
    
33.         If Right(Format(myDate, "yyyymmdd"), 4) = "0501" Or _
    
34.            Right(Format(myDate, "yyyymmdd"), 4) = "0101" Then
    
35.             NWD = NWD + 1
    
36.         ElseIf Right(Format(myDate, "yyyymmdd"), 4) = "1001" Then
    
37.             NWD = NWD + 3
    
38.         End If
    
39.     Next
    
40.     '判断及计算工作日结束
    
41. 
    
42.     gDate = DateAdd("d", intPeriod, OrderDate)  '在不考虑工作日时：交货日期=下单日期+周期
    
43.     '下面开始考虑工作日
    
44.     If NWD = 0 Then   '没有非工作日
    
45. 
    
46.         DeliveryDay = gDate           '交货日期=下单日期+周期
    
47. 
    
48.         '有非工作日
    
49.     Else
    
50.         DeliveryDay = DeliveryDay(gDate, NWD)    '为了计算加上非工作日天数后的非工作日，这里函数引用自己本身（递归），继续循环计算至NWD=0
    
51.     End If
    
52. 
    
53.     On Error GoTo 0
    
54.     Exit Function
    
55. 
    
56. DeliveryDay_Error:
    
57. 
    
58.     MsgBox "Error " & Err.Number & " (" & Err.Description & ") "
    
59. End Function
    

复制代码

Henry D. Sy

结果

yanwei82123300

{:soso_e100:}{:soso_e181:}非常感谢！！大公无私！！

layaman_999

33.        If Right(Format(myDate, "yyyymmdd"), 4) = "0501" Or _

34.           Right(Format(myDate, "yyyymmdd"), 4) = "0101" Then

35.            NWD = NWD + 1

36.        ElseIf Right(Format(myDate, "yyyymmdd"), 4) = "1001" Then

37.            NWD = NWD + 3

38.        End If

==================================
改为这样，可能好理解些：
dim Str1 as string
str1 = Format(myDate, "mmdd")
select case str1
case "0501", "0101"
   NWD = NWD + 1
case  "1001"
   NWD = NWD + 3
end select

Henry D. Sy

layaman_999 发表于 2012-6-26 23:19
33.        If Right(Format(myDate, "yyyymmdd"), 4) = "0501" Or _

34.           Right(Format(myDat ...

谢谢，layaman_999 提醒！！

Henry D. Sy

yanwei82123300 发表于 2012-6-26 16:51
清明节1天，端午1天，八月十五 1天 春节3天

增加农历节日
http://www.office-cn.net/forum.p ... mp;extra=#pid660056