'現在の日時を取得 Private dtNow As DateTime = DateTime.Now '現在の年を取得し変数に保管 Private iYear As Integer = dtNow.Year '現在の月を取得し変数に保管 Private iMonth As Integer = dtNow.Month '今月の最初の日 Private dtFDM As New DateTime(…