В.Б. - Разница между 2 датами

Question

Я пытаюсь найти разницу между двумя датами.Первая из двух дат может быть изменена, и при ее изменении разница между исходными датами должна быть сохранена.Это означает, что мне нужно автоматически изменить вторую дату, чтобы иметь такую ​​же разницу в днях, как и раньше, но с новой первой датой.

Public Sub New()

    InitializeComponent()

    currDate = txt_ProjStart.Text

End Sub

Private Sub txt_ProjStart_TextChanged.....

If txt_ProjEnd.Text.Length > 0 Then

    Dim newDate As Date
    newDate = txt_ProjStart.Text




    Dim endDate As Date
    endDate = txt_ProjEnd.Text


End If

У меня есть значение старой даты1 (currDate) и нового значения даты1 (newDate).Мне нужно получить разницу между ними, а затем добавить или минус эти дни от endDate.

Любая помощь будет высоко ценится!Спасибо!

Answer 1

Dim newDate, endDate, someOtherDate As Date

If Date.TryParse(txt_ProjStart.Text, newDate) AndAlso _
   Date.TryParse(txt_ProjEnd.Text, endDate) Then

    Dim diff As TimeSpan = endDate - newDate
    Dim result As Date = someOtherDate + diff
End If

Даты и временные интервалы автоматически конвертируются. Кроме того, было бы неплохо использовать безопасное преобразование дат. TryParse не будет генерировать исключение, если дата недействительна. Скорее он вернет False.