VB.net カレンダー
'現在の日時を取得
Private dtNow As DateTime = DateTime.Now
'現在の年を取得し変数に保管
Private iYear As Integer = dtNow.Year
'現在の月を取得し変数に保管
Private iMonth As Integer = dtNow.Month
'今月の最初の日
Private dtFDM As New DateTime(dtNow.Year, dtNow.Month, 1)
'日数を取得する
Private iDaysInMonth As Integer = DateTime.DaysInMonth(dtNow.Year, dtNow.Month)
'曜日を文字列で取得する
'省略された曜日名で取得する。
Private uWeekDay As String = dtFDM.ToString("ddd")
'来月の日時を取得
Private NextNow As Date = DateAdd(DateInterval.Month, 1, DateTime.Now)
''来月の最初の日
Private dtFDM2 As New DateTime(NextNow.Year, NextNow.Month, 1)
'来月の月を取得
Private nMonth As Integer = NextNow.Month
'先月の日時を取得
Private BackNow As Date = DateAdd(DateInterval.Month, -1, DateTime.Now)
'先月の最初の日
Private dtFDM3 As New DateTime(BackNow.Year, BackNow.Month, 1)
'先月の月を取得
Private bMonth As Integer = BackNow.Month
'来年の年
Private NextYear As Date = DateAdd(DateInterval.Year, 1, DateTime.Now)
'来年の月
Private nYear As Integer = NextYear.Year
'来年のその月の最初の日
Private dtFDM4 As New DateTime(NextYear.Year, NextYear.Month, 1)
'昨年の年
Private BackYear As Date = DateAdd(DateInterval.Year, -1, DateTime.Now)
'昨年の月
Private bYear As Integer = BackYear.Year
'昨年のその月の最初の日
Private dtFDM5 As New DateTime(BackYear.Year, BackYear.Month, 1)
