vb闰年判断

在Visual Basic (VB)中，你可以使用DateTime.IsLeapYear方法来判断一个年份是否为闰年。这个方法接受一个整数作为参数，表示要检查的年份，并返回一个布尔值，指示该年份是否为闰年。
以下是一个简单的VB示例代码，展示了如何使用DateTime.IsLeapYear方法来判断闰年： 

 

Module Module1
    Sub Main()
        Console.Write("请输入一个年份来检查是否为闰年: ")
        Dim input As String = Console.ReadLine()
        Dim year As Integer

        If Integer.TryParse(input, year) Then
            If DateTime.IsLeapYear(year) Then
                Console.WriteLine(year & " 是闰年。")
            Else
                Console.WriteLine(year & " 不是闰年。")
            End If
        Else
            Console.WriteLine("输入无效，请输入一个有效的年份。")
        End If

        Console.ReadKey()
    End Sub
End Module

在这个示例中，我们首先使用Console.ReadLine方法从用户那里获取输入，并尝试使用Integer.TryParse方法将输入转换为整数。如果转换成功，我们就将该整数传递给DateTime.IsLeapYear方法来检查该年份是否为闰年。根据返回的结果，我们打印出相应的消息。
请注意，这个示例假设你是在一个控制台应用程序中运行VB代码。如果你在使用其他类型的VB项目（例如Windows Forms或WPF），你可能需要调整代码以适应不同的输入和输出方式。
如果你想要手动实现闰年的判断逻辑，而不是使用DateTime.IsLeapYear方法，你可以按照以下方式编写代码： 
 

Module Module1
    Sub Main()
        Console.Write("请输入一个年份来检查是否为闰年: ")
        Dim input As String = Console.ReadLine()
        Dim year As Integer

        If Integer.TryParse(input, year) Then
            If (year Mod 4 = 0 And year Mod 100 <> 0) Or year Mod 400 = 0 Then
                Console.WriteLine(year & " 是闰年。")
            Else
                Console.WriteLine(year & " 不是闰年。")
            End If
        Else
            Console.WriteLine("输入无效，请输入一个有效的年份。")
        End If

        Console.ReadKey()
    End Sub
End Module

在这个版本的代码中，我们使用了闰年的定义来手动判断：如果年份能被4整除但不能被100整除，或者能被400整除，那么它就是闰年。

vb闰年判断代码仅供参考使用，vb闰年判断程序来源于热心网友提供的开源程序.尽管经过测试，但本站对使用闰年程序导致的结果概不承担任何责任。

闰年网发布