显示日期范围内的特定日期

1 回答

• 0

  这可能看起来像......

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      Dim startDate As Date = d1.Value.Date ' removes any time values
      Dim stopDate As Date = d2.Value.Date ' removes any time values
      If stopDate >= startDate Then
          Dim DayChecked As Boolean
          While startDate <= stopDate
              Select Case startDate.DayOfWeek
                  Case DayOfWeek.Sunday
                      DayChecked = cbSunday.Checked
  
                  Case DayOfWeek.Monday
                      DayChecked = cbMonday.Checked
  
                  Case DayOfWeek.Tuesday
                      DayChecked = cbTuesday.Checked
  
                  Case DayOfWeek.Wednesday
                      DayChecked = cbWednesday.Checked
  
                  Case DayOfWeek.Thursday
                      DayChecked = cbThursday.Checked
  
                  Case DayOfWeek.Friday
                      DayChecked = cbFriday.Checked
  
                  Case DayOfWeek.Saturday
                      DayChecked = cbSaturday.Checked
  
              End Select
              If DayChecked Then
                  ' ... add startDate to your DataGridView ...
                  Debug.Print(startDate.ToString)
              End If
  
              startDate = startDate.AddDays(1)
          End While
      End If
  End Sub
  

  回复于 2024-04-25T21:09:34+08:00