[VB.NET]その月に含まれる日数を取得する

>Blog Top Page >[VB.NET] Top Page >[VB.NET] VB.NET ALL

■その月に含まれる日数を取得する

Module Module1

    Sub Main()

        Dim yyyy As Integer = DateTime.Now.Year
        Dim LastDay As Integer

        For mm As Integer = 1 To 12

            'その月に存在する日数を取得
            LastDay = DateTime.DaysInMonth(yyyy, mm)

            Console.WriteLine("{0}年{1}月は、{2}日あります", yyyy, mm, LastDay)

        Next

    End Sub

End Module

□出力結果
2013年1月は、31日あります
2013年2月は、28日あります
2013年3月は、31日あります
2013年4月は、30日あります
2013年5月は、31日あります
2013年6月は、30日あります
2013年7月は、31日あります
2013年8月は、31日あります
2013年9月は、30日あります
2013年10月は、31日あります
2013年11月は、30日あります
2013年12月は、31日あります

>Blog Top Page >[VB.NET] Top Page >[VB.NET] VB.NET ALL