vb.net - vb.net で 2 つの日付間の日数を検証する

Question

2 つの datetimepickers を使用し、テキスト ボックスに日数の差を表示するサブがあります。日数が 0 または 10 より大きい場合、許可されている日数は 1 ～ 10 であることをサブがユーザーに伝えます。次に、ユーザーにもう一度日付を選択してもらいます

Private Sub btnCalculate_Click(sender As System.Object, e As System.EventArgs)Handles btnCalculate.Click

 Dim dt1 As DateTime = Convert.ToDateTime(DateTimePicker1.Text)

            Dim dt2 As DateTime = Convert.ToDateTime(DateTimePicker2.Text)

            Dim ts As TimeSpan = dt2.Subtract(dt1)

            If Convert.ToInt32(ts.Days) >= 0 Then

                txtDays.Text = "Total Days are "

                txtDays.AppendText(Environment.NewLine & Convert.ToInt32(ts.Days))


            Else

                MessageBox.Show("Invalid Input for dates (Start Date Cannot exist before End date)")

            End If


        End If
End Sub