Imports GrapeCity.Web.Input.IMCalendar
Dim nationalHoliday As HolidayStyle = New HolidayStyle
Private Sub SetNationalHoliday()
' 2015年1月現在の国民の祝日を設定します。
' 固定の祝日を設定します。
nationalHoliday.Name = "国民の祝日"
nationalHoliday.SubStyle = New SubStyle(Color.WhiteSmoke, Color.Red)
nationalHoliday.Holidays.Add(New Holiday("元旦", 1, 1))
nationalHoliday.Holidays.Add(New Holiday("建国記念の日", 2, 11))
nationalHoliday.Holidays.Add(New Holiday("昭和の日", 4, 29))
nationalHoliday.Holidays.Add(New Holiday("憲法記念日", 5, 3))
nationalHoliday.Holidays.Add(New Holiday("みどりの日", 5, 4))
nationalHoliday.Holidays.Add(New Holiday("こどもの日", 5, 5))
nationalHoliday.Holidays.Add(New Holiday("文化の日", 11, 3))
nationalHoliday.Holidays.Add(New Holiday("勤労感謝の日", 11, 23))
nationalHoliday.Holidays.Add(New Holiday("天皇誕生日", 12, 23))
' ハッピーマンデーを設定します。
nationalHoliday.Holidays.Add(New DayOfWeekHoliday("成人の日", MonthFlags.January, DayOfWeekInMonthFlags.Second, DayOfWeekFlags.Monday))
nationalHoliday.Holidays.Add(New DayOfWeekHoliday("海の日", MonthFlags.July, DayOfWeekInMonthFlags.Third, DayOfWeekFlags.Monday))
nationalHoliday.Holidays.Add(New DayOfWeekHoliday("敬老の日", MonthFlags.September, DayOfWeekInMonthFlags.Third, DayOfWeekFlags.Monday))
nationalHoliday.Holidays.Add(New DayOfWeekHoliday("体育の日", MonthFlags.October, DayOfWeekInMonthFlags.Second, DayOfWeekFlags.Monday))
' 年によって変化する祝日の初期値(2015年)を設定します。
nationalHoliday.Holidays.Add(New ForceHoliday("春分の日", DateTime.Parse("2015/3/21")))
nationalHoliday.Holidays.Add(New ForceHoliday("秋分の日", DateTime.Parse("2015/9/23")))
nationalHoliday.Holidays.Add(New ForceHoloday("国民の休日", DateTime.Parse("2015/9/22")))
' 振替休日の扱いを設定します。
nationalHoliday.Holidays.Weekdays.Sunday = New DayOfWeekHolidayPolicy(WeekFlags.All, HolidayOverride.NextWorkDay)
GcCalendar1.OverrideTipText = "振替休日"
' 休日スタイルをコレクションに追加してカレンダーに反映させます。
GcCalendar1.HolidayStyles.Add("国民の祝日", nationalHoliday)
GcCalendar1.ActiveHolidayStyles = New String() {"国民の祝日"}
End Sub
using GrapeCity.Web.Input.IMCalendar;
HolidayStyle nationalHoliday = new HolidayStyle();
private void SetNationalHoliday()
{
// 2015年2月現在の国民の祝日を設定します。
// 固定の祝日を設定します。
nationalHoliday.Name = "国民の祝日";
nationalHoliday.SubStyle = new SubStyle(Color.WhiteSmoke, Color.Red);
nationalHoliday.Holidays.Add(new Holiday("元旦", 1, 1));
nationalHoliday.Holidays.Add(new Holiday("建国記念の日", 2, 11));
nationalHoliday.Holidays.Add(new Holiday("昭和の日", 4, 29));
nationalHoliday.Holidays.Add(new Holiday("憲法記念日", 5, 3));
nationalHoliday.Holidays.Add(new Holiday("みどりの日", 5, 4));
nationalHoliday.Holidays.Add(new Holiday("こどもの日", 5, 5));
nationalHoliday.Holidays.Add(new Holiday("文化の日", 11, 3));
nationalHoliday.Holidays.Add(new Holiday("勤労感謝の日", 11, 23));
nationalHoliday.Holidays.Add(new Holiday("天皇誕生日", 12, 23));
// ハッピーマンデーを設定します。
nationalHoliday.Holidays.Add(new DayOfWeekHoliday("成人の日", MonthFlags.January, DayOfWeekInMonthFlags.Second, DayOfWeekFlags.Monday));
nationalHoliday.Holidays.Add(new DayOfWeekHoliday("海の日", MonthFlags.July, DayOfWeekInMonthFlags.Third, DayOfWeekFlags.Monday));
nationalHoliday.Holidays.Add(new DayOfWeekHoliday("敬老の日", MonthFlags.September, DayOfWeekInMonthFlags.Third, DayOfWeekFlags.Monday));
nationalHoliday.Holidays.Add(new DayOfWeekHoliday("体育の日", MonthFlags.October, DayOfWeekInMonthFlags.Second, DayOfWeekFlags.Monday));
// 年によって変化する祝日の初期値(2015年)を設定します。
nationalHoliday.Holidays.Add(new ForceHoliday("春分の日", DateTime.Parse("2015/3/21")));
nationalHoliday.Holidays.Add(new ForceHoliday("秋分の日", DateTime.Parse("2015/9/23")));
nationalHoliday.Holidays.Add(new ForceHoloday("国民の休日", DateTime.Parse("2015/9/22")));
// 振替休日の扱いを設定します。
nationalHoliday.Holidays.Weekdays.Sunday = new DayOfWeekHolidayPolicy(WeekFlags.All, HolidayOverride.NextWorkDay);
GcCalendar1.OverrideTipText = "振替休日";
// 休日スタイルをコレクションに追加してカレンダーに反映させます。
GcCalendar1.HolidayStyles.Add("国民の祝日", nationalHoliday);
GcCalendar1.ActiveHolidayStyles = new string[] {"国民の祝日"};
}