VB.NET DateTime исключение из диапазона

Question

В моем проекте я создал ярлык, чтобы показать время начала и две кнопки, чтобы настроить его, один добавляет 15 минут для каждого щелчка, а другой вычитает 15 минут. Код выглядит следующим образом

Label1.text = "04:30 AM" 
Private Sub Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Add.Click, Btn_Sub.Click 
Dim btn_clicked As Button = Ctype(sender, Button) 
If btn_clicked.Name = "Btn_Add" Then 
    Label1.text = Ctype(Label.text, DateTime).AddMinutes(15).ToString("hh:mm tt") 
ElseIf btn_clicked.Name = "Btn_Sub" Then 
    Label1.text = Ctype(Label.text, DateTime).AddMinutes(-15).ToString("hh:mm tt") 
End If 
End Sub 

Кнопки отлично работают на первый, но если я продолжу нажав кнопку Вычесть, я надеюсь, что время будет меняться в цикле, например, 4:30 AM -> 4:15 AM -> ... -> 12:15 AM -> 12:00 AM -> 23:45 PM -> 23:30

Но как только произойдет прыжок в середине ночи, исключение выйдет,

System.ArgumentOutOfRangeException был необработанным Сообщение = "Указанный аргумент вышел за пределы допустимых значений."

Как это могло случиться? Минимальное значение для даты и времени - 00: 00: 00.0000000, 1 января 0001 года на MSDN. Нужно ли мне назначать дату года в качестве начального значения?

Спасибо!

Answer 1

Попробуй как этот

Private Sub Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Add.Click, Btn_Sub.Click 
    Dim btn_clicked As Button = CType(sender, Button) 
    Static startTime As DateTime = #12/30/5000 4:30:00 AM# 
    If btn_clicked.Name = "Btn_Add" Then 
     startTime = startTime.AddMinutes(15) 
     Label1.text = startTime.ToString("hh:mm tt") 
    ElseIf btn_clicked.Name = "Btn_Sub" Then 'in the OP this said Btn_Add also 
     startTime = startTime.AddMinutes(-15) 
     Label1.text = startTime.ToString("hh:mm tt") 
    End If 
End Sub