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

layaman_999

yanwei82123300 发表于 2012-6-26 12:18
layaman_999 谢谢分享！

法定节假日也应该考虑进去吧，如五一、国庆

yanwei82123300

layaman_999 同意此观点，我公司的主计划已经考虑了，否则就猪头了1{:soso_e113:}

Henry D. Sy

其他倒还可以，就是端午和中秋，春节需要农历的。

yanwei82123300

这就需要公司的计划部门，和销售部门进行沟通下订单时要考虑中国的特定假期，需要整个公司的运营去考虑了

yanwei82123300

Henry D. Sy 老师请问如何界定五一、国庆，元旦的日期呢？

Henry D. Sy

yanwei82123300 发表于 2012-6-26 15:30
Henry D. Sy 老师请问如何界定五一、国庆，元旦的日期呢？

呵呵
right(format(日期,"yyyymmdd"),4)="0501";"1001";"0101"

yanwei82123300

Henry D. Sy 老师这个语句放到哪里或哪个位置，谢谢

Henry D. Sy

放在循环判断语句中

Henry D. Sy

yanwei82123300 发表于 2012-6-26 15:59
Henry D. Sy 老师这个语句放到哪里或哪个位置，谢谢

try:

1. Public Function gDeliveryDay(sDate As Date, intPeriod As Integer) As Date
   
2.     Dim i As Integer, NWD As Integer
   
3.     Dim myDate As Date
   
4.     Dim gDate As Date
   
5.     For i = 1 To intPeriod
   
6.         myDate = DateAdd("d", i, sDate)
   
7.         If Weekday(myDate) = 1 Or Weekday(myDate) = 7 Then
   
8.             NWD = NWD + 1
   
9.         End If
   
10.         If Right(Format(myDate, "yyyymmdd"), 4) = "0501" Or Right(Format(myDate, _
    
11.             "yyyymmdd"), 4) = "0101" Or Right(Format(myDate, "yyyymmdd"), 4) = _
    
12.             "1001" Then
    
13.             NWD = NWD + 3
    
14.         End If
    
15.     Next
    
16.     gDate = DateAdd("d", intPeriod, sDate)
    
17.     If NWD = 0 Then
    
18.         gDeliveryDay = gDate
    
19.     Else
    
20.         gDeliveryDay = gDeliveryDay(gDate, NWD)
    
21.     End If
    
22. End Function

复制代码

yanwei82123300

If Weekday(myDate) = 1 Or Weekday(myDate) = 7 or right(format(日期,"yyyymmdd"),4)="0501";"1001";"0101"Then
NWD = NWD + 1
        End If
    Next
对吗？谢谢