[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 LeapYear As String  
6.   
7.         For yyyy As Integer = 2000 To 2010  
8.   
9.             LeapYear = IIf(DateTime.IsLeapYear(yyyy), "閏年です", "閏年じゃないです")  
10.   
11.             Console.WriteLine("{0}年は、{1}", yyyy, LeapYear)  
12.   
13.         Next  
14.   
15.     End Sub  
16.   
17. End Module  

Module Module1

    Sub Main()

        Dim LeapYear As String

        For yyyy As Integer = 2000 To 2010

            LeapYear = IIf(DateTime.IsLeapYear(yyyy), "閏年です", "閏年じゃないです")

            Console.WriteLine("{0}年は、{1}", yyyy, LeapYear)

        Next

    End Sub

End Module

□出力結果
2000年は、閏年です
2001年は、閏年じゃないです
2002年は、閏年じゃないです
2003年は、閏年じゃないです
2004年は、閏年です
2005年は、閏年じゃないです
2006年は、閏年じゃないです
2007年は、閏年じゃないです
2008年は、閏年です
2009年は、閏年じゃないです
2010年は、閏年じゃないです

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