[VB.NET]閏年か調べる

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

■閏年か調べる

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