Imports GrapeCity.Web.Input.IMCalendar
Imports System.Diagnostics
' 対象の日付を設定します。
Dim aDate As DateTime = DateTime.Parse("2015/8/25")
' 日付の種類を調べます。
Dim aHS As HolidayStyle = GcCalendar1.HolidayStyles(GcCalendar1.ActiveHolidayStyles(0))
Dim dayInCollection As Object
Debug.WriteLine(aHS.Holidays.GetTypeOfDay(aDate, dayInCollection).ToString())
' 休日、臨時休日、臨時営業日の場合は、その名称を調べます。
If Not IsNothing(dayInCollection) Then
Debug.WriteLine(CType(dayInCollection, IHoliday).Name)
End If
using GrapeCity.Web.Input.IMCalendar;
using System.Diagnostics;
// 対象の日付を設定します。
DateTime aDate = DateTime.Parse("2015/8/25");
// 日付の種類を調べます。
HolidayStyle aHS = GcCalendar1.HolidayStyles[GcCalendar1.ActiveHolidayStyles[0]];
object dayInCollection;
Debug.WriteLine(aHS.Holidays.GetTypeOfDay(aDate, out dayInCollection).ToString());
// 休日、臨時休日、臨時営業日の場合は、その名称を調べます。
if (dayInCollection != null)
{
Debug.WriteLine(((IHoliday)dayInCollection).Name);
}