Imports GrapeCity.Web.Input.IMCalendar
' チェック用の変数
Dim checkValue As Integer = 0
' 対象の日付を設定します。
Dim aDate As DateTime = DateTime.Parse("2015/3/23")
' 各オブジェクトのIsHolidayメソッドがTrueを返したときに、
' IsYearlyプロパティを調べます。
Dim aHS As HolidayStyle = GcCalendar1.HolidayStyles(GcCalendar1.ActiveHolidayStyles(0))
Dim item As 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
Label1.Text = aDate.ToString("yyyy年MM月dd日") + " : 通常は休業日"
Case 2
Label1.Text = aDate.ToString("yyyy年MM月dd日") + " : 通常は臨時休日"
Case 4
Label1.Text = aDate.ToString("yyyy年MM月dd日") + " : 通常は休日"
End Select
using GrapeCity.Web.Input.IMCalendar;
// チェック用の変数
int checkValue = 0;
// 対象の日付を設定します。
DateTime aDate = DateTime.Parse("2015/3/23");
// 各オブジェクトのIsHolidayメソッドがTrueを返したときに、
// IsYearlyプロパティを調べます。
HolidayStyle aHS = GcCalendar1.HolidayStyles[GcCalendar1.ActiveHolidayStyles[0]];
foreach (IHoliday item in aHS.Holidays)
{
if (item.IsHoliday(aDate))
{
checkValue += 1;
if (item.IsYearly) checkValue += 3;
}
}
// 調べた結果を表示します。
switch (checkValue)
{
case 1:
label1.Text = aDate.ToString("yyyy年MM月dd日") + " : 通常は休業日";
break;
case 2:
label1.Text = aDate.ToString("yyyy年MM月dd日") + " : 通常は臨時休日";
break;
case 5:
label1.Text = aDate.ToString("yyyy年MM月dd日") + " : 通常は休日";
break;
}