VARCHART XGantt是一個交互式的甘特圖控件，其模塊化的設(shè)計讓您可以創(chuàng)建滿足您和您的客戶所需求的應(yīng)用程序。可以快速、簡單地集成到您的應(yīng)用程序中，幫助您識別性能瓶頸、避免延遲以及高效利用資源，使復(fù)雜數(shù)據(jù)變得更加容易理解。

點擊下載VARCHART XGantt免費版

本篇文章主要解釋了VARCHART XGantt如何計算活動結(jié)束時間，感興趣的朋友可以自己動手操作一下哦~

結(jié)束日期的表列仍為空。可以在VARCHART XGantt中包含的日歷的幫助下，從“開始”和“持續(xù)時間”字段計算活動的結(jié)束。

在默認(rèn)日歷中，工作日（星期一到星期五）被定義為活動時間，而周末（星期六和星期日）被定義為非活動時間。

在圖中，您可以通過灰色背景識別非活動時間。可以通過在“節(jié)點”屬性頁上停用“將日歷分配給節(jié)點”選項來關(guān)閉日歷。

請注意有無日歷計算的差異：

活動從星期五開始并持續(xù)3天，如果日歷被激活，活動將在星期二結(jié)束。沒有日歷，活動將在周日結(jié)束。

結(jié)束日期通過對象VcCalendar的AddDuration（...）方法計算。因此，需要每項活動的開始和持續(xù)時間。可以通過索引從相應(yīng)的數(shù)據(jù)字段中檢索它們。在通過DataField（...）方法設(shè)置結(jié)束日期之后，必須調(diào)用VcNode的UpdateNode方法，以便可以看到數(shù)據(jù)的更改。

示例代碼

Dim tmpCal As VcCalendar
Dim tmpDate As Date
Set tmpCal = VcGantt1.CalendarCollection.Active
tmpDate = tmpCal.AddDuration(node.DataField(2), node.DataField(4))
node.DataField(3) = tmpDate
node.UpdateNode

通過鼠標(biāo)交互創(chuàng)建或修改的活動的開始和結(jié)束日期將自動置于活動時間。

相反，API或編輯對話框設(shè)置的日期可以放置在非工作時間。

通過計算生成的日期始終位于工作時間內(nèi)。為了確保API設(shè)置的日期處于工作時間，需要從結(jié)束日期和活動持續(xù)時間計算開始日期。

示例代碼

tmpDate = tmpCal.AddDuration(node.DataField(3), _
 (-1) * node.DataField(4))
node.DataField(2) = tmpDate

為了保持?jǐn)?shù)據(jù)的一致性，丟失或負持續(xù)時間應(yīng)視為不正確，并重置為0。如果缺少開始日期，則無法計算結(jié)束日期。所需的代碼總結(jié)為一個名為SetNodeEndDate（...）的單獨方法。

示例代碼

Private Sub SetNodeEndDate(ByVal node As VcNode)
 'Avoid empty or negative duration
 If node.DataField(4) = "" Or node.DataField(4) < 0 Then
 node.DataField(4) = "0"
 End If
 'Start date empty then end date should also be empty
 If node.DataField(2) = "31.12.1899 00:00:00" Then
 node.DataField(3) = ""
 Else
 'Precondition is property page nodes
 '"Assign calendar to nodes" must be true
 Dim tmpCal As VcCalendar
 Dim tmpDate As Date
 Set tmpCal = VcGantt1.CalendarCollection.Active
 tmpDate = tmpCal.AddDuration(node.DataField(2), _
 node.DataField(4))
 node.DataField(3) = tmpDate
 'Start date only in active times
 tmpDate = tmpCal.AddDuration(node.DataField(3), _
 (-1) * node.DataField(4))
 node.DataField(2) = tmpDate
 node.UpdateNode
 End If
End Sub

需要計算日期：

1、活動結(jié)束后

2、通過數(shù)據(jù)編輯對話框或就地編輯器修改日期或持續(xù)時間之后

3.、API修改活動值后

然而，在通過鼠標(biāo)交互進行修改之后，不必啟動計算，因為這將自動執(zhí)行內(nèi)部計算。

可以通過VcGantt對象的屬性NodeCollection來設(shè)置包括所有節(jié)點的計算循環(huán)。它的代碼將被添加到事件Form1_Load（...）的末尾。

示例代碼

'Calculate end date for all nodes
Dim node As VcNode
For Each node In VcGantt1.NodeCollection
 SetNodeEndDate node
Next

可以通過事件OnNodeModifyComplete捕獲用戶引起的數(shù)據(jù)更改。方法調(diào)用執(zhí)行結(jié)束日期的計算。

示例代碼

Private Sub VcGantt1_OnNodeModifyComplete _
 (ByVal node As VcGanttLib.VcNode, _
 ByVal isLastNodeInSeries As Boolean)
 SetNodeEndDate node
End Sub

如果數(shù)據(jù)已通過API更改，則必須調(diào)用SetNodeEndDate（...）。

想要購買VARCHART XGantt正版授權(quán)，或了解更多產(chǎn)品信息請點擊