ドロップダウンカレンダー(GcDateTime型セル)

using InputManCell = GrapeCity.Win.Spread.InputMan.CellType;

// GcDateTimeセルにドロップダウンボタンを追加
InputManCell.GcDateTimeCellType gdt = new InputManCell.GcDateTimeCellType();
gdt.SideButtons.Add(new InputManCell.DropDownButtonInfo());
fpSpread1.ActiveSheet.Cells[0, 0].CellType = gdt;

Imports InputManCell = GrapeCity.Win.Spread.InputMan.CellType

' GcDateTimeセルにドロップダウンボタンを追加
Dim gdt As New InputManCell.GcDateTimeCellType
gdt.SideButtons.Add(New InputManCell.DropDownButtonInfo())
FpSpread1.ActiveSheet.Cells(0, 0).CellType = gdt

using InputManCell = GrapeCity.Win.Spread.InputMan.CellType;

// 休日スタイルを生成します。
InputManCell.HolidayStyle aHS = new InputManCell.HolidayStyle();
aHS.Name = "国民の祝日";
aHS.SubStyle = new InputManCell.SubStyle(Color.White, Color.Red, true, false);
aHS.Holidays.Add(new InputManCell.Holiday("誕生日", 10, 1));

Imports InputManCell = GrapeCity.Win.Spread.InputMan.CellType

' 休日スタイルを生成します。
Dim aHS As InputManCell.HolidayStyle = New InputManCell.HolidayStyle()
aHS.Name = "国民の祝日"
aHS.SubStyle = New InputManCell.SubStyle(Color.White, Color.Red, True, False)
aHS.Holidays.Add(New InputManCell.Holiday("誕生日", 10, 1))

// 休日を追加します。
aHS.Holidays.Add(new InputManCell.Holiday("新婚旅行", 6, 28, 7, 12));

' 休日を追加します。
aHS.Holidays.Add(New InputManCell.Holiday("新婚旅行", 6, 28, 7, 12))

// 成人の日を追加します。
aHS.Holidays.Add(new InputManCell.DayOfWeekHoliday("成人の日",InputManCell.MonthFlags.January, InputManCell.DayOfWeekInMonthFlags.Second, InputManCell.DayOfWeekFlags.Monday));

' 成人の日を追加します。
aHS.Holidays.Add(New InputManCell.DayOfWeekHoliday("成人の日",InputManCell.MonthFlags.January, InputManCell.DayOfWeekInMonthFlags.Second, InputManCell.DayOfWeekFlags.Monday))

// コレクションに登録します。
gdt.DropDownCalendar.HolidayStyles.Add("個人の休日", aHS);
// カレンダーに反映させます。
gdt.DropDownCalendar.ActiveHolidayStyles = new string[] {"個人の休日"};

' コレクションに登録します。
gdt.DropDownCalendar.HolidayStyles.Add("個人の休日", aHS)
' カレンダーに反映させます。
gdt.DropDownCalendar.ActiveHolidayStyles = New string() {"個人の休日"}

using InputManCell = GrapeCity.Win.Spread.InputMan.CellType;

// 2012年10月1日を臨時営業日（仕事）に設定します。
DateTime aDateA = DateTime.Parse("2012/10/1");
gdt.DropDownCalendar.HolidayStyles["個人の休日"].Holidays.Add(new InputManCell.ForceWorkday("仕事", aDateA));
// 2012年10月2日を臨時休日（代休）に設定します。
DateTime aDateB = DateTime.Parse("2012/10/2");
gdt.DropDownCalendar.HolidayStyles["個人の休日"].Holidays.Add(new InputManCell.ForceHoliday("代休", aDateB));

Imports InputManCell = GrapeCity.Win.Spread.InputMan.CellType

' 2012年10月1日を臨時営業日（仕事）に設定します。
Dim aDateA As DateTime = DateTime.Parse("2012/10/1")
gdt.DropDownCalendar.HolidayStyles("個人の休日").Holidays.Add(New InputManCell.ForceWorkday("仕事", aDateA))
' 2012年10月2日を臨時休日（代休）に設定します。
Dim aDateB As DateTime = DateTime.Parse("2012/10/2")
gdt.DropDownCalendar.HolidayStyles("個人の休日").Holidays.Add(New InputManCell.ForceHoliday("代休", aDateB))

Using InputManCell = GrapeCity.Win.Spread.InputMan.CellType;

aHS.Holidays.Weekdays.Sunday = new InputManCell.DayOfWeekHolidayPolicy(
InputManCell.WeekFlags.All, InputManCell.HolidayOverride.NextWorkDay);

Imports InputManCell = GrapeCity.Win.Spread.InputMan.CellType

aHS.Holidays.Weekdays.Sunday = New InputManCell.DayOfWeekHolidayPolicy( _
InputManCell.WeekFlags.All, InputManCell.HolidayOverride.NextWorkDay)

using System.Diagnostics;
using InputManCell = GrapeCity.Win.Spread.InputMan.CellType;

// 対象の日付を設定します。
DateTime aDate = DateTime.Parse("2012/10/01");
// 日付の種類を調べます。
InputManCell.HolidayStyle aHS = gdt.DropDownCalendar.HolidayStyles[gdt.DropDownCalendar.ActiveHolidayStyles[0]];
object dayInCollection;
Debug.WriteLine(aHS.Holidays.GetTypeOfDay(aDate, out dayInCollection).ToString());
// 休日、臨時休日、臨時営業日の場合は、その名称を調べます。
if (dayInCollection != null)
{
  Debug.WriteLine(((InputManCell.IHoliday)dayInCollection).Name);
}

Imports InputManCell = GrapeCity.Win.Spread.InputMan.CellType
' 対象の日付を設定します。
Dim aDate As DateTime = DateTime.Parse("2012/10/01")
' 日付の種類を調べます。
Dim aHS As InputManCell.HolidayStyle = gdt.DropDownCalendar.HolidayStyles(gdt.DropDownCalendar.ActiveHolidayStyles(0))
Dim dayInCollection As Object
Debug.WriteLine(aHS.Holidays.GetTypeOfDay(aDate, dayInCollection).ToString())
' 休日、臨時休日、臨時営業日の場合は、その名称を調べます。
If Not IsNothing(dayInCollection) Then
  Debug.WriteLine(CType(dayInCollection, InputManCell.IHoliday).Name)
End If

using InputManCell = GrapeCity.Win.Spread.InputMan.CellType;

// チェック用の変数
int checkValue = 0;
// 対象の日付を設定します。
DateTime aDate = DateTime.Parse("2012/10/01");
// 各オブジェクトのIsHoliday メソッドがTrueを返したときに、
// IsYearlyプロパティを調べます。
InputManCell.HolidayStyle aHS = gdt.DropDownCalendar.HolidayStyles[gdt.DropDownCalendar.ActiveHolidayStyles[0]];
foreach (InputManCell.IHoliday item in aHS.Holidays)
{
    if (item.IsHoliday(aDate))
    {
        checkValue += 1;
        if (item.IsYearly) checkValue += 3;
    }
}
// 調べた結果を表示します。
switch (checkValue)
{
    case 1:
        MessageBox.Show(aDate.ToString("yyyy年MM月dd日") + " : 通常は休業日");
        break;
    case 2:
        MessageBox.Show(aDate.ToString("yyyy年MM月dd日") + " : 通常は臨時休日");
        break;
    case 5:
        MessageBox.Show(aDate.ToString("yyyy年MM月dd日") + " : 通常は休日");
        break;
}

Imports InputManCell = GrapeCity.Win.Spread.InputMan.CellType
' チェック用の変数
Dim checkValue As Integer = 0
' 対象の日付を設定します。
Dim aDate As DateTime = DateTime.Parse("2012/10/01")
' 各オブジェクトのIsHoliday メソッドがTrueを返したときに、
' IsYearlyプロパティを調べます。
Dim aHS As InputManCell.HolidayStyle = gdt.DropDownCalendar.HolidayStyles(gdt.DropDownCalendar.ActiveHolidayStyles(0))
Dim item As InputManCell.IHoliday
For Each item In aHS.Holidays
    If item.IsHoliday(aDate) Then
        checkValue += 1
        If item.IsYearly Then checkValue += 3
    End If
Next
' 調べた結果を表示します。
Select checkValue
    Case 1
        MessageBox.Show(aDate.ToString("yyyy年MM月dd日") + " : 通常は休業日")
    Case 2
        MessageBox.Show(aDate.ToString("yyyy年MM月dd日") + " : 通常は臨時休日")
    Case 5
        MessageBox.Show(aDate.ToString("yyyy年MM月dd日") + " : 通常は休日")
End Select