Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Imports System.IO
Imports System.Globalization
PrivateSub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Dim firstDateOfFirstWeek As DateTime
firstDateOfFirstWeek = Me.ultraCalendarInfo1.GetDateForFirstDayOfWeek(1, DateTime.Today.Year)
MessageBox.Show("The first day of the first week in the current year is " + firstDateOfFirstWeek.ToLongDateString() + "." + vbCrLf, "GetDateForFirstDayOfWeek", MessageBoxButtons.OK)
End Sub
'宣言
Public Overloads Function GetDateForFirstDayOfWeek( _
ByVal week As Integer, _
ByVal year As Integer _
) As Date
using System.Diagnostics;
using Infragistics.Win;
using Infragistics.Win.UltraWinSchedule;
using System.IO;
using System.Globalization;
privatevoid button1_Click(object sender, System.EventArgs e)
{
DateTime firstDateOfFirstWeek;
firstDateOfFirstWeek = this.ultraCalendarInfo1.GetDateForFirstDayOfWeek( 1, DateTime.Today.Year );
MessageBox.Show( "The first day of the first week in the current year is " + firstDateOfFirstWeek.ToLongDateString() + "." + "\n", "GetDateForFirstDayOfWeek", MessageBoxButtons.OK );
}
'宣言
Public Overloads Function GetDateForFirstDayOfWeek( _
ByVal week As Integer, _
ByVal year As Integer _
) As Date