VARCHART XGantt用戶手冊(cè)（ActiveX版）：如何使用日歷（中）

VARCHART XGantt是一個(gè)交互式的甘特圖控件，其模塊化的設(shè)計(jì)讓您可以創(chuàng)建滿足您和您的客戶所需求的應(yīng)用程序。相較于其他甘特圖控件，VARCHART XGantt穩(wěn)定性高，開發(fā)時(shí)間長，各大行業(yè)的知名公司都在使用它。本文主要描述了如何使用日歷教程中的第二部分內(nèi)容，內(nèi)容緊接前文，現(xiàn)在就來了解一下吧~

點(diǎn)擊下載VARCHART XGantt免費(fèi)版

時(shí)鐘時(shí)間由對(duì)象DateTime設(shè)置。日期部分被忽略，因?yàn)樵谶@種情況下它毫無意義。只需要在構(gòu)造函數(shù)中設(shè)置日期，即可為構(gòu)造函數(shù)所需的所有參數(shù)設(shè)置一個(gè)值。在Interval_3中，指定0h或24h是很重要的，因?yàn)楹笳咴?strong>DateTime對(duì)象中不被接受。

一年中的定期日期（例如1月1日的除夕夜或12月25日至26日的圣誕節(jié)和節(jié)禮日），由涵蓋全年的日歷配置文件定義。

示例代碼

'Setting a profile of fixed annual holidays
Dim calendarProfile As VcCalendarProfile
Dim interval As VcInterval
Set calendarProfile =
calendar.CalendarProfileCollection.Add("YearProfile")
calendarProfile.Type = vcYearProfile
Set interval = calendarProfile.IntervalCollection.Add("New Year")
interval.CalendarProfileName = ""
interval.DayInStartMonth = 1
interval.StartMonth = vcJanuary
interval.DayInEndMonth = 1
interval.EndMonth = vcJanuary
Call SetAppearanceForHolidays(interval)
Set interval = calendarProfile.IntervalCollection.Add("Christmas")
interval.CalendarProfileName = ""
interval.DayInStartMonth = 25
interval.StartMonth = vcDecember
interval.DayInEndMonth = 26
interval.EndMonth = vcDecember
Call SetAppearanceForHolidays(interval)

為了避免重復(fù)設(shè)置產(chǎn)生相同的外觀，我們使用名為SetAppearanceForHolidays的方法收集調(diào)用：

示例代碼

'Method to set the visual appearance of holidays
Private Sub SetAppearanceForHolidays(ByVal interval As VcInterval)
 interval.BackColorAsARGB = &HFFFFA4A4
 interval.Pattern = vcWeavePattern
 interval.PatternColorAsARGB = &HFF404040
 interval.LineColor = &HFF808080
 interval.LineThickness = 1
 interval.LineType = vcSolid
 interval.UseGraphicalAttributes = True
End Sub

請(qǐng)注意：顏色屬性僅在其CalendarProfileName設(shè)置為或的間隔內(nèi)有效。另外，間隔屬性UseGraphicalAttribute需要設(shè)置為true。對(duì)于calenderGrid屬性UseGraphicalAttributesOfIntervals同樣如此。

每年必須計(jì)算浮動(dòng)假期（例如復(fù)活節(jié)）和其他與之相關(guān)的假期，并且需要將其作為固定日期分配給日歷。下面的方法對(duì)此非常有用：

示例代碼

'Method to find floating holidays
Const AshWednesday = 0
Const GoodFriday = 1
Const EasterSunday = 2
Const EasterMonday = 3
Const FeastOfCorpusChristi = 4
Const AscensionOfChrist = 5
Const WhitSunday = 6
Const WhitMonday = 7
Const CentralEuropeanSummerTimeStart = 8
Const CentralEuropeanSummerTimeEnd = 9
Private Function calculateAnniversaryForYear(ByVal year As Integer,
ByVal specialDay As Integer) As Date
 Dim g As Integer
 Dim c As Integer
 Dim h As Integer
 Dim i As Integer
 Dim j As Integer
 Dim month As Integer
 Dim day As Integer
 Dim dayOffset As Integer

 g = year Mod 19
 c = year Mod 100
 h = (c - c / 4 - (8 * c + 13) / 25 + 19 * g + 15) Mod 30
 i = h - (h / 28) * (1 - (29 / (h + 1)) * ((21 - g) / 11))
 j = (year + year / 4 + i + 2 - c + c / 4) Mod 7
 month = 3 + (i - j + 40) / 44
 day = i - j + 28 - 31 * (month / 4)
 dayOffset = 0

 Select Case specialDay
 Case AshWednesday
 dayOffset = -40
 Case GoodFriday
 dayOffset = -2
 Case EasterSunday
 dayOffset = 0
 Case EasterMonday
 dayOffset = 1
 Case AscensionOfChrist
 dayOffset = 39
 Case WhitSunday
 dayOffset = 49
 Case WhitMonday
 dayOffset = 50
 Case FeastOfCorpusChristi
 dayOffset = 60
 Case CentralEuropeanSummerTimeStart 
 month = 3
 day = 31 - Weekday("31.3" + yearConvert + 1)
 Case CentralEuropeanSummerTimeEnd
 month = 10
 day = 31 - Weekday("31.10" + yearConvert + 1)
 End Select
 Dim tmpDate As Date
 tmpDate = day & "." & month & "." & year
 calculateAnniversaryForYear = tmpDate + dayOffset
End Function

在下一步中，將周配置文件和假日配置文件作為間隔分配給日歷。然后以相同的方式計(jì)算浮動(dòng)假期并將其分配給日歷：

示例代碼

'Assembling the week profile, the holiday profile and the floating
holidays into an interval
Set interval = calendar.IntervalCollection.Add("Weekly_Pattern")
interval.CalendarProfileName = "WeekProfile"

Set interval = calendar.IntervalCollection.Add("Yearly_Pattern")
interval.CalendarProfileName = "YearProfile"

Dim startYear As Integer
Dim endYear As Integer
startYear = year(VcGantt1.TimeScaleStart)
endYear = year(VcGantt1.TimeScaleEnd)

Dim i As Integer
For i = startYear To endYear Step i + 1
 Set interval = calendar.IntervalCollection.Add("GoodFriday_" & i)
 interval.CalendarProfileName = ""
 interval.StartDateTime = calculateAnniversaryForYear(i, GoodFriday)
 interval.EndDateTime = calculateAnniversaryForYear(i, EasterMonday)
 'interval.StartDateTime
 Call SetAppearanceForHolidays(interval)

 Set interval = calendar.IntervalCollection.Add("EasterMonday_" & i)
 interval.CalendarProfileName = ""
 interval.StartDateTime = calculateAnniversaryForYear(i, EasterMonday)
 interval.EndDateTime = interval.StartDateTime
 Call SetAppearanceForHolidays(interval)

 Set interval =
calendar.IntervalCollection.Add("FeastOfCorpusChristi_" & i)
 interval.CalendarProfileName = ""
 interval.StartDateTime = calculateAnniversaryForYear(i,
FeastOfCorpusChristi)
 interval.EndDateTime = interval.StartDateTime
 Call SetAppearanceForHolidays(interval)

 Set interval = calendar.IntervalCollection.Add("AscensionOfChrist_" &
i)
 interval.CalendarProfileName = ""
 interval.StartDateTime = calculateAnniversaryForYear(i,
AscensionOfChrist)
 interval.EndDateTime = interval.StartDateTime 
 Call SetAppearanceForHolidays(interval)

 Set interval = calendar.IntervalCollection.Add("WhitMonday_" & i)
 interval.CalendarProfileName = ""
 interval.StartDateTime = calculateAnniversaryForYear(i, WhitMonday)
 interval.EndDateTime = interval.StartDateTime
 Call SetAppearanceForHolidays(interval)
Next

VcGantt1.CalendarCollection.Update

這些是組裝日歷所需的摘要步驟。根據(jù)要求，可以省略單個(gè)步驟：

1. 創(chuàng)建不同工作日的日配置文件

2. 通過使用日配置文件組裝周配置文件

3. 定義假期資料

4. 將星期概要和假日概要分配給日歷的間隔集合

5. 為間隔集合分配其他日期（例如，浮動(dòng)假期）

間隔對(duì)象允許定義可解釋為工作時(shí)間或非工作時(shí)間的時(shí)間段。通過CalendarProfileName屬性將句點(diǎn)區(qū)分為或。通過此屬性，日歷還可以引用其他現(xiàn)有配置文件并采用其設(shè)置。設(shè)置此屬性時(shí)，請(qǐng)注意，根據(jù)間隔類型，只能分配某些配置文件類型。間隔類型由選定的配置文件類型隱式選擇。日歷配置文件的預(yù)設(shè)默認(rèn)值vcDayProfile可以在初始時(shí)（即在定義間隔之前）通過相應(yīng)的設(shè)置進(jìn)行修改。

配置文件類型建議允許的間隔類型。例如，日期配置文件始終需要vcDayProfileInterval類型的間隔。

日歷配置文件可以顯示類型為日配置文件、周配置文件、年配置文件和變量配置文件。在一天配置文件中，只能通過在一天的限制范圍內(nèi)的時(shí)鐘時(shí)間來定義間隔。一周配置文件包含要在某些天應(yīng)用的日期配置文件。年份配置文件分配選定的一天配置文件，這些配置文件適用于單個(gè)重復(fù)日期或幾個(gè)重復(fù)日期。變量配置文件包含一系列不同的工作時(shí)間。根據(jù)間隔類型vcCalendarInterval，vcDayProfileInterval，vcWeekProfileInterval，vcYearProfileInterval和vcVariableProfileInterval，僅對(duì)象的某些屬性是相關(guān)的。下表映射了概要文件類型和相關(guān)屬性。

CalendarInterval在精確定義的間隔中描述了唯一的時(shí)間跨度。例：2010年5月5日從11:30時(shí)到2010年9月15日17:00時(shí)。

YearProfileInterval允許定義每年重復(fù)一次的天數(shù)或時(shí)間跨度。例：5月1日或12月24日至26日。

WeekProfileInterval處理一周中的一天或幾天。例：星期六或星期一至星期五。

DayProfileInterval處理一天之內(nèi)的時(shí)間規(guī)格。例：8.00至17.00。

VariableProfile描述了時(shí)間跨度，而不引用定義的日期或時(shí)間。時(shí)間間隔的單位可以是天、小時(shí)、分鐘或秒，并且由時(shí)間間隔對(duì)象的屬性TimeUnit指定。例：4小時(shí)。

本教程內(nèi)容尚未完結(jié)，敬請(qǐng)期待該教程最后一部分內(nèi)容“如何使用日歷進(jìn)行計(jì)算”~感興趣的朋友可以下載VARCHART XGantt免費(fèi)版評(píng)估一下~

相關(guān)內(nèi)容推薦：

VARCHART XGantt用戶手冊(cè)（ActiveX版）：如何使用日歷（上）

VARCHART XGantt用戶手冊(cè)>>>

想要購買VARCHART XGantt正版授權(quán)，或了解更多產(chǎn)品信息請(qǐng)點(diǎn)擊“咨詢?cè)诰€客服”

1024，慧都致敬程序員們，zend現(xiàn)金優(yōu)惠券限時(shí)放送，了解詳情請(qǐng)點(diǎn)擊下方圖片