设置默认休息日和工作时间

要求星期一和星期天休息，上班时间为上午九点到12点，下午2点到6点，每天工作7小时，每周工作35小时。

参考代码：

Dim gv As GanttView = e.Form.Controls("GanttView1").GanttView
gv.DefaultDaysOff = Gantt.WeekDays.Monday Or Gantt.WeekDays.Sunday '默认休息日改为星期一和星期日
gv.DefaultWorkingTimes.Interval_1.Empty = False '必须将时段的Empty属性设置为False
gv.DefaultWorkingTimes.Interval_1.From = New Date(1, 1, 1, 9, 0, 0, 0) '第一个工作时段为上午9点到12点
gv.DefaultWorkingTimes.Interval_1.To = New Date(1, 1, 1, 12, 0, 0, 0)
gv.DefaultWorkingTimes.Interval_2.Empty = False
gv.DefaultWorkingTimes.Interval_2.From = New Date(1, 1, 1, 14, 0, 0, 0) '第二个工作时段为下午2点到六点
gv.DefaultWorkingTimes.Interval_2.To = New Date(1, 1, 1, 18, 0, 0, 0)
gv.HoursPerDay = 7 '每天工作7小时
gv.HoursPerWeek = 35 '每周工作35小时
gv.DaysPerMonth = 21 '每月平均21个工作日
gv.GridDateFormat = "yyyyMMdd" '表格日期格式
gv.ChartDateFormat = "M月d日" '图表日期格式