[發問] 完工日期計算

ikosnahc

各位大大，又想問一個關於日期計算的問題‥

我有一個完工的日子，(例:2011年10月1日)，有一個生產天數(如45日)，當中要扣減星期六日及假期，請問要怎才可做到? 我知道networkdays 有大約功能但它是計算一星期工作6天的‥而且跟我想要的好像逆向了..??

handmuch

不是很懂你的意思, 用用看workday

Hsieh

回復 1# ikosnahc

不知道你是不是要算完工日期的前45工作天的日期，如果這樣用樓上的建議即可

在此說明一下，NETWORKDAYS或WORKDAY函數都會將星期六、日排除，也就是周休二日

ikosnahc

我是要算完工日期的前45天的日期‥但用workday的話是算周休二日，我只想一星期休息一天 ...

Hsieh

回復 4# ikosnahc


   這問題如果是2010版就可輕易解決
不過你是2002版本沒有WORKDAY.INTL函數
寫個自定義函數來解決 MyWorkday.rar (10.22 KB)

下載次數: 2

2011-4-27 20:08

1. Function MyWorkday(star_day, days, weekend, Optional holiday As Range)
   
2. '參數說明
   
3. 'star_day=開始日期
   
4. 'days工作天數
   
5. 'weekend'，，周末有幾天如周休一日就用1，周休二日就用2
   
6. 'holiday假日(儲存格範圍)
   
7. 
   
8. Application.Volatile
   
9. Set d = CreateObject("Scripting.Dictionary")
   
10. If Not IsEmpty(holiday) Then
    
11. For Each a In holiday
    
12.    d(a.Value) = d.Count
    
13. Next
    
14. End If
    
15. p = Sgn(days)
    
16. Do Until s = days
    
17. MyWorkday = star_day + i
    
18. If Weekday(MyWorkday, 2) <= 7 - weekend Then
    
19. n = d.exists(MyWorkday)
    
20.    If d.exists(MyWorkday) = False Then s = s + 1 * p
    
21. End If
    
22. i = i + 1 * p
    
23. Loop
    
24. End Function

複製代碼