第五章 結論與建議
5.2 建議
一、本研究所建置之延遲分析輔助系統中僅限制某些狀況下之專案，如：規劃網圖與 竣工網圖必頇使用同一種工作日曆，而實際上，某些專案規劃網圖與竣工網圖的 工作日曆是有所差異，因此若後續研究中可解決工作日曆之問題，可使延遲資訊 系統更加完善。
二、本研究所建置之延遲分析輔助系統之延遲分析方法大多需要原規劃網圖及竣工網 圖，但由於部分公司可能沒有留存完整資料，或牽扯到成本與資料機密性問題，
使得案例取得困難，造成案例樣本數過少，進而導致本研究所建立的考量工率折 減時程延遲輔助系統產生信賴度之問題，因此建議後續研究可利用多重實際案例 探討系統之適用性及實用性。
參考文獻
1. 吳卓夫、余文德、楊智斌，「公共工程契約工期合理化及縮短工期配套措施之研 究」，行政院公共工程委員會委託研究計畫，2002。
2. 吳家德，「公共工程仲裁制度應用之研究」，碩士論文，國立高雄第一科技大學營 建工程研究所，高雄，2003。
3. 李長鴻，「考量工率折減之時程延遲分析方法之建立」，碩士論文，中華大學營建 管理研究所，新竹，2010。
4. 盧仲昱，「營建工程契約遲延問題之研究」，碩士論文，東吳大學法律學研究所，
台北，1994
5. 鄭明龍，「營建工程遲延分析」，碩士論文，高雄第一科技大學營建工程研究所，
高雄，2003。
6. 蕭偉松，「論營建工程遲延與情事變更原則之適用」，碩士論文，東吳大學法學院 法律專班，台北，2001。
7. 尹碧娟，「工程時程延遲分析方法之研究」，碩士論文，中華大學營建管理研究所，
新竹，2005。
8. 歐昇芬，「國內公共工程施工階段時程延遲原因分析」，碩士論文，中華大學營建 管理研究所，新竹，2005。
9. 楊智斌，「公共工程時程延遲原因與計算方法分析(I)」，行政院國家科學委員會專 題研究計畫，2005。
10. 賴玉樹，「水利工程施工階段時程延遲原因之分析」，碩士論文，雲林科技大學大 學營建工程系碩士班，雲林，2007。
11. Sullivan, A. and Harris, F. C., ―Delays on large construction projects,‖ International Journal of Operations and Production Management, Vol. 6, No. 1, pp. 25-33, 1986.
12. 葉連發，「專案工程設計品質管理系統建構之研究」，碩士論文，國立台灣科技大 學營建工程系，台北，2001。
13. AI-Khalil, M. I. and AI-Ghafly, M. A., ―Delay in public utility projects in Saudi Arabia,‖ International Journal of Project Management, Vol. 17, No. 2, pp.
101-106,1999.
14. Al-Momani, A. H., ―Construction delay: a quantitative analysis,‖ International Journal
of Project Management, Vol. 18, No. 1, pp.51-59, 2000.
15. 郭孟宗，「探討國內道路工程工期冗長原因及解決對策」，現代營建，第 261 期，
第 49-55 頁，2001。
16. 林茂成，「當前大型公共建設問題與對策之研究」，碩士論文，台灣海洋大學河海 工程學系，基隆，2003。
17. 李怡瑤，「時程延遲分析技術改進與實作」，碩士論文，中華大學營建管理研究所，
新竹，2007。
18. Lovejoy, V. A.,― Claims schedule development and analysis: collapsed as-built scheduling for beginners,‖ Cost Engineering, Vol. 46, No. 1, pp. 27-30, 2004.
19. 蔡奇成、王明德、曾惠斌，「工期共同延遲分析之研究」，第十屆營建管理學術交 流論文研討會，中壢，G1-G11 頁，2006。
20. Zack, J. G., ―Pacing delays-the practical effect,‖ Cost Engineering, Vol. 42, No. 7, pp.
22-38, July, 2004.
21. Alkass, S., Mazerolle, M. and Harris, F., ―Construction delay analysis techniques,‖Construction Management and Economics, Vol. 14, No. 5, pp. 375-394, 1996.
22. 高志魁，「時程延遲分析技術之建立與實證之研究」，博士論文，中華大學科技管 理研究所，新竹，2009。
23. Productivity Loss, Disruption and Inefficiency Analysis, web access:http://www.exponent.com/productivity_loss/, Exponent Inc., 2009.
24. Lee, H. S., Ryu, H.G., Yu, J. H. and Kim, J. J, ―Method for calculating schedule delay considering lost productivity,‖ Journal of Construction Engineering and Management, Vol. 131, No. 11, pp.1147-1154, 2005.
25. 嚴玉明，「營建工程承攬約之時間義務」，營造天下，第 111 期，第 8-17 頁，台 北，2005。
26. 吳萬疆，「以作業基礎成本法計算因工期展延所生間接成本之研究」，碩士論文，
國立中央大學營建管理研究所，中壢，2007。
27. Finke, M. R., ―Claims for construction productivity losses,‖ Public Contract Law Journal, Vol. 26, pp. 311-317, 1996.
28. Kallo, G. G., ―Estimating loss of productivity claims.‖ Journal of Management in Engineering, ASCE, Vol. 12, No. 6, pp. 13-15, 1996.
29. Klanac, G. P. and Nelson, E. L., ―Trends in construction lost productivity claims,‖
Journal of Construction Engineering and Management, ASCE, Vol. 130, No 3. pp.
226-236, 2004.
30. 魏沛銳，「國內公共工程規劃設計階段時程延遲原因分析」，碩士論文，中華大學 營建管理研究所，新竹，2005。
31. 鄧雅玲，「三時估計法於時程延遲預估之研究」，碩士論文，中華大學營建管理研 究所，新竹，2005
32. 陳偉忠/林宏諭，Project 2003 徹底研究，碩博文化股份有限公司，2004。
附錄一 延遲分析資訊系統之程式碼
Private Sub CommandButton2_Click() '選擇預覽檔案
With Application .FileOpen
TextBox1.Text = .ActiveProject.Path & "\" & .ActiveWindow.Caption
& ".mpp"
End With End Sub
Private Sub CommandButton5_Click() '選擇預覽檔案
With Application .FileOpen
TextBox2.Text = .ActiveProject.Path & "\" & .ActiveWindow.Caption
& ".mpp"
End With End Sub
Private Sub CommandButton6_Click() '選擇預覽檔案
With Application .FileOpen
TextBox3.Text = .ActiveProject.Path & "\" & .ActiveWindow.Caption
& ".mpp"
End With End Sub
Private Sub CommandButton3_Click() '選擇欲匯入開啟視窗
FileOpen Name:=TextBox1.Text, ReadOnly:=False,
FormatID:="MSProject.MPP"
FileOpen Name:=TextBox2.Text, ReadOnly:=False, FormatID:="MSProject.MPP"
FileOpen Name:=TextBox3.Text, ReadOnly:=False, FormatID:="MSProject.MPP"
WindowActivate WindowName:=TextBox1.Text WindowActivate WindowName:=TextBox2.Text WindowActivate WindowName:=TextBox3.Text
'複製欄位至 pj 欄位中
WindowActivate WindowName:=TextBox1.Text SelectTaskColumn Column:="名稱"
EditCopy
WindowActivate WindowName:=TextBox4.Text SelectTaskColumn Column:="受影響任務"
EditPaste
WindowActivate WindowName:=TextBox1.Text SelectTaskColumn Column:="工期"
EditCopy
WindowActivate WindowName:=TextBox4.Text SelectTaskColumn Column:="比較基準工期"
EditPaste
WindowActivate WindowName:=TextBox1.Text SelectTaskColumn Column:="開始時間"
EditCopy
WindowActivate WindowName:=TextBox4.Text SelectTaskColumn Column:="比較基準開始時間"
EditPaste
WindowActivate WindowName:=TextBox1.Text SelectTaskColumn Column:="完成時間"
EditCopy
WindowActivate WindowName:=TextBox4.Text
SelectTaskColumn Column:="比較基準完成時間"
EditPaste
WindowActivate WindowName:=TextBox1.Text SelectTaskColumn Column:="前置任務"
EditCopy
WindowActivate WindowName:=TextBox4.Text SelectTaskColumn Column:="前置任務"
EditPaste
WindowActivate WindowName:=TextBox2.Text SelectTaskColumn Column:="工期"
EditCopy
WindowActivate WindowName:=TextBox4.Text SelectTaskColumn Column:="受影響規劃工期"
EditPaste
WindowActivate WindowName:=TextBox2.Text SelectTaskColumn Column:="開始時間"
EditCopy
WindowActivate WindowName:=TextBox4.Text SelectTaskColumn Column:="受影響規劃開始時間"
EditPaste
WindowActivate WindowName:=TextBox2.Text SelectTaskColumn Column:="完成時間"
EditCopy
WindowActivate WindowName:=TextBox4.Text SelectTaskColumn Column:="受影響規劃完成時間"
EditPaste
WindowActivate WindowName:=TextBox3.Text SelectTaskColumn Column:="名稱"
EditCopy
WindowActivate WindowName:=TextBox4.Text SelectTaskColumn Column:="未受影響任務"
EditPaste
WindowActivate WindowName:=TextBox3.Text SelectTaskColumn Column:="工期"
EditCopy
WindowActivate WindowName:=TextBox4.Text SelectTaskColumn Column:="未受影響工期"
EditPaste
WindowActivate WindowName:=TextBox3.Text SelectTaskColumn Column:="開始時間"
EditCopy
WindowActivate WindowName:=TextBox4.Text SelectTaskColumn Column:="未受影響開始時間"
EditPaste
WindowActivate WindowName:=TextBox3.Text SelectTaskColumn Column:="完成時間"
EditCopy
WindowActivate WindowName:=TextBox4.Text SelectTaskColumn Column:="未受影響完成時間"
EditPaste
End Sub
Private Sub CommandButton9_Click() '定義 sheet1 表格欄位
Spreadsheet1.Selection(1, 1) = "作業名稱"
Spreadsheet1.Selection(1, 2) = "受影響實際開始時間"
Spreadsheet1.Selection(1, 3) = "受影響實際完成時間"
Spreadsheet1.Selection(1, 4) = "受影響規劃開始時間"
Spreadsheet1.Selection(1, 5) = "受影響規劃完成時間"
Spreadsheet1.Selection(1, 6) = "未受影響開始時間"
Spreadsheet1.Selection(1, 7) = "未受影響完成時間"
'定義 sheet2 表格欄位
Spreadsheet2.Selection(1, 1) = "作業名稱"
Spreadsheet2.Selection(1, 2) = "受影響實際工期"
Spreadsheet2.Selection(1, 3) = "受影響實際人力總和"
Spreadsheet2.Selection(1, 4) = "受影響實際工作量"
Spreadsheet2.Selection(1, 5) = "受影響規劃工期"
Spreadsheet2.Selection(1, 6) = "受影響規劃人力總和"
Spreadsheet2.Selection(1, 7) = "受影響規劃工作量"
Spreadsheet2.Selection(1, 8) = "未受影響實際工期"
Spreadsheet2.Selection(1, 9) = "未受影響實際人力總和"
Spreadsheet2.Selection(1, 10) = "未受影響實際工作量"
'定義 sheet3 表格欄位
Spreadsheet3.Selection(1, 1) = "作業名稱"
Spreadsheet3.Selection(1, 2) = "受影響實際每天平均人力"
Spreadsheet3.Selection(1, 3) = "受影響實際每天每人平均生產力"
Spreadsheet3.Selection(1, 4) = "受影響規劃每天每人平均生產力"
Spreadsheet3.Selection(1, 5) = "未受影響每天平均人力"
Spreadsheet3.Selection(1, 6) = "未受影響每天每人平均生產力"
Spreadsheet3.Selection(1, 7) = "生產力損失總和"
Spreadsheet3.Selection(1, 8) = "受影響後損失工作量"
Spreadsheet3.Selection(1, 9) = "受影響因子影響造成之工期延遲總和"
'將 pj 欄位第一個作業匯入系統中
SelectTaskField Row:=0, Column:="受影響任務"
Spreadsheet1.Selection(2, 1) = ThisProject.Application.ActiveCell.Text Spreadsheet2.Selection(2, 1) = ThisProject.Application.ActiveCell.Text Spreadsheet3.Selection(2, 1) = ThisProject.Application.ActiveCell.Text SelectTaskField Row:=0, Column:="比較基準開始時間"
Spreadsheet1.Selection(2, 2) =
DateFormat(ThisProject.Application.ActiveCell.Text, pjDate_mm_dd_yyyy) SelectTaskField Row:=0, Column:="比較基準完成時間"
Spreadsheet1.Selection(2, 3) =
DateFormat(ThisProject.Application.ActiveCell.Text, pjDate_mm_dd_yyyy) SelectTaskField Row:=0, Column:="受影響規劃開始時間"
Spreadsheet1.Selection(2, 4) =
DateFormat(ThisProject.Application.ActiveCell.Text, pjDate_mm_dd_yyyy) SelectTaskField Row:=0, Column:="受影響規劃完成時間"
Spreadsheet1.Selection(2, 5) =
DateFormat(ThisProject.Application.ActiveCell.Text, pjDate_mm_dd_yyyy) SelectTaskField Row:=0, Column:="未受影響開始時間"
Spreadsheet1.Selection(2, 6) =
DateFormat(ThisProject.Application.ActiveCell.Text, pjDate_mm_dd_yyyy) SelectTaskField Row:=0, Column:="未受影響完成時間"
Spreadsheet1.Selection(2, 7) =
DateFormat(ThisProject.Application.ActiveCell.Text, pjDate_mm_dd_yyyy)
'將 pj 欄位其餘作業匯入系統中 rloop = ThisProject.NumberOfTasks For i = 3 To rloop + 1
SelectTaskField Row:=1, Column:="受影響任務"
Spreadsheet1.Selection(i, 1) = ThisProject.Application.ActiveCell.Text Spreadsheet2.Selection(i, 1) = ThisProject.Application.ActiveCell.Text Spreadsheet3.Selection(i, 1) = ThisProject.Application.ActiveCell.Text SelectTaskField Row:=0, Column:="比較基準開始時間"
Spreadsheet1.Selection(i, 2) =
DateFormat(ThisProject.Application.ActiveCell.Text, pjDate_mm_dd_yyyy) SelectTaskField Row:=0, Column:="比較基準完成時間"
Spreadsheet1.Selection(i, 3) =
DateFormat(ThisProject.Application.ActiveCell.Text, pjDate_mm_dd_yyyy) SelectTaskField Row:=0, Column:="受影響規劃開始時間"
Spreadsheet1.Selection(i, 4) =
DateFormat(ThisProject.Application.ActiveCell.Text, pjDate_mm_dd_yyyy) SelectTaskField Row:=0, Column:="受影響規劃完成時間"
Spreadsheet1.Selection(i, 5) =
DateFormat(ThisProject.Application.ActiveCell.Text, pjDate_mm_dd_yyyy) SelectTaskField Row:=0, Column:="未受影響開始時間"
Spreadsheet1.Selection(i, 6) =
DateFormat(ThisProject.Application.ActiveCell.Text, pjDate_mm_dd_yyyy) SelectTaskField Row:=0, Column:="未受影響完成時間"
Spreadsheet1.Selection(i, 7) =
DateFormat(ThisProject.Application.ActiveCell.Text, pjDate_mm_dd_yyyy) Next
'計算 sheet2 之受影響實際工期 rloop = ThisProject.NumberOfTasks For i = 2 To rloop + 1
Spreadsheet2.Selection(i, 2) = Spreadsheet1.Selection(i, 3) - Spreadsheet1.Selection(i, 2) + 1
Next
'計算 sheet2 之受影響規劃工期 rloop = ThisProject.NumberOfTasks For i = 2 To rloop + 1
Spreadsheet2.Selection(i, 5) = Spreadsheet1.Selection(i, 5) - Spreadsheet1.Selection(i, 4) + 1
Next
'計算 sheet2 之未受影響實際工期 rloop = ThisProject.NumberOfTasks For i = 2 To rloop + 1
Spreadsheet2.Selection(i, 8) = Spreadsheet1.Selection(i, 7) - Spreadsheet1.Selection(i, 6) + 1
Next
End Sub
Private Sub CommandButton10_Click()
'計算受影響實際每天平均人力=受影響實際人力總和/受影響實際工期 Spreadsheet3.Selection(3, 2) = Spreadsheet2.Selection(3, 3) /
Spreadsheet2.Selection(3, 2)
'計算受影響實際每天每人平均生產力=受影響實際工作量/受影響實際每天 平均人力*受影響實際工期
Spreadsheet3.Selection(3, 3) = Spreadsheet2.Selection(3, 4) / (Spreadsheet3.Selection(3, 2) * Spreadsheet2.Selection(3, 2))
'計算受影響規劃每天每人平均生產力=受影響規劃工作量/受影響實際每天 平均人力*受影響規劃工期
Spreadsheet3.Selection(3, 4) = Spreadsheet2.Selection(3, 7) / (Spreadsheet3.Selection(3, 2) * Spreadsheet2.Selection(3, 5))
'計算未受影響每天平均人力=未受影響實際人力總和/未受影響實際工期 Spreadsheet3.Selection(3, 5) = Spreadsheet2.Selection(3, 9) /
Spreadsheet2.Selection(3, 8)
'計算未受影響每天每人平均生產力=未受影響實際工作量/未受影響實際每 天平均人力*未受影響工期
Spreadsheet3.Selection(3, 6) = Spreadsheet2.Selection(3, 10) / (Spreadsheet3.Selection(3, 5) * Spreadsheet2.Selection(3, 8))
'計算受影響後生產力損失總和=未受影響實際每天每人平均生產力-受影響 實際每天每人平均生產力
Spreadsheet3.Selection(3, 7) = Spreadsheet3.Selection(3, 6) - Spreadsheet3.Selection(3, 3)
'計算受影響後損失的工作量=受影響後生產力損失總和*受影響實際每天平 均人力*受影響實際工期
Spreadsheet3.Selection(3, 8) = Spreadsheet3.Selection(3, 7) *
Spreadsheet3.Selection(3, 2) * Spreadsheet2.Selection(3, 2)
'計算受影響後工期延遲總和=受影響後損失的工作量/受影響實際每天平均 人力*未受影響實際每天每人平均生產力
Spreadsheet3.Selection(3, 9) = Spreadsheet3.Selection(3, 8) / (Spreadsheet3.Selection(3, 2) * Spreadsheet3.Selection(3, 6)) End Sub
Private Sub CommandButton11_Click() '定義 sheet4 表格欄位
Spreadsheet4.Selection(1, 1) = "作業名稱"
Spreadsheet4.Selection(1, 2) = "可原諒延遲日數"
Spreadsheet4.Selection(1, 3) = "不可原諒延遲日數"
'輸入作業名稱
rloop = ThisProject.NumberOfTasks For i = 2 To rloop + 1
Spreadsheet4.Selection(i, 1) = Spreadsheet3.Selection(i, 1) Next
End Sub
Private Sub CommandButton12_Click() '定義 sheet5 表格欄位
Spreadsheet5.Selection(1, 1) = "未考量工率折減下承商負責天數"
Spreadsheet5.Selection(2, 1) = "最終業主負責延遲天數"
Spreadsheet5.Selection(3, 1) = "最終承商負責延遲天數"
'計算未考量工率折減下承商負責天數=受影響實際工期-(受影響實際工期-不可原諒延遲日數)
Spreadsheet5.Selection(1, 2) = Spreadsheet2.Selection(3, 2) - (Spreadsheet2.Selection(3, 2) - Spreadsheet4.Selection(3, 3))
'計算最終業主負責延遲天數=受影響實際工期-(受影響實際工期-可原諒延