如果使用 Or 关键字不满足条件

Question

这是我第一次在 Stack Overflow 上提问 :)

我有一个程序可以让用户在组合框中选择一个日期并将其显示在标签上。代码的其他部分很好，但我不能在特殊日子的几个月里例外（比如闰年只有 29 天的 2 月）。 我尝试使用 If/Else 语句，以便当用户单击 2016、2012、2008 和 2004 年和 2 月时，它将显示在名为“day”1 到 29 的组合框中，如果用户单击 2 月而不是指定的日期将显示 1 到 28：

If month.SelectedItem = "Feb" And year.SelectedItem = "2016" Or "2012" Or "2008" Or "2004" Then
        Dim jkl As Integer
        For jkl = 1 To 29
            day.Items.Add(jkl)
        Next
    ElseIf month.SelectedItem = "Feb" Then
        Dim poi As Integer
        For poi = 1 To 28
            day.Items.Add("poi")
        Next
    End If

但不幸的是，当我调试它时，当我选择第一个 If 语句中指定的日期以外的日期时，名为 day 的组合框仅显示 29 而不是 28。我尝试更改条件的顺序，更改数字的分隔符到 "&" 但它仍然是一样的。

我希望有人能查明真相。我觉得它在我的结构中是错误的，但即使我每次都更改顺序并且它仍然显示相同的错误。 我试着在这里搜索，但我找不到一个像我的情况甚至非常相似的人。

Answer 1

我认为你应该在这里使用 DateTime 函数：

DateTime.DaysInMonth(year, month)

Docs

        Dim dateString As String = String.Format("{0} 1 2001", month.SelectedItem)
        Dim dDate As Date = DateTime.Parse(dateString)
        Dim numberOfMonth As Integer = DateAndTime.Month(dDate)
        For jkl = 1 To DateTime.DaysInMonth(numberOfMonth, year.SelectedItem)
            day.Items.Add(jkl)
        Next

Answer 2

就个人而言，我会制作一个嵌套的 If

if month.SelectedItem = "Feb" then
if year.SelectedItem = "2016" Or "2012" Or "2008" Or "2004" Then
Dim jkl As Integer
    For jkl = 1 To 29
        day.Items.Add(jkl)
    Next
else
Dim poi As Integer
    For poi = 1 To 28
        day.Items.Add("poi")
    Next
end if

Answer 3

打开 Option Strict On，它将帮助您立即检测到这些错误。 VB 不处理这样的 If 语句，您编写的内容并没有按照您的想法执行。每次都需要指定双方。

If month.SelectedItem = "Feb" And (year.SelectedItem = "2016" Or year.SelectedItem = "2012" Or year.SelectedItem = "2008" Or year.SelectedItem = "2004") Then

至于你的逻辑，there are formula to detect leap day。改用它可能会更好。

最后，在接近尾声时，添加字符串而不是变量值。

day.Items.Add(poi)