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

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

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

view plainprint?

1. Module Module1  
2.   
3.     Sub Main()  
4.   
5.         Dim yyyy As Integer = DateTime.Now.Year  
6.         Dim LastDay As Integer  
7.   
8.         For mm As Integer = 1 To 12  
9.   
10.             'その月に存在する日数を取得  
11.             LastDay = DateTime.DaysInMonth(yyyy, mm)  
12.   
13.             Console.WriteLine("{0}年{1}月は、{2}日あります", yyyy, mm, LastDay)  
14.   
15.         Next  
16.   
17.     End Sub  
18.   
19. End Module  

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