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

我有旧date1（currDate）和新date1值（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

日期和TimeSpans会自动转换为彼此。此外，使用安全日期转换是个好主意。如果日期无效，TryParse将不会生成异常。相反，它将返回False。

VB - 2个日期之间的差异

1 个答案: