Как я могу сравнить два раза в VB.net

Question

Я хочу, чтобы сравнить два раза в VB.NET:

У меня есть 1:42:21 PM, и я хочу, чтобы сравнить с TimeOfDay в VB.NET, как может Я делаю это?

Answer 1

New DateTime(1, 1, 1, 13, 42, 21) > TimeOfDay 

Или вы можете заключить выражение DateTime в # признаки:

TimeOfDay > #1:42:21 PM# 

Answer 2

The following sample function can be used to compare time 
Function comTime() 
Dim t1 As Integer = DateTime.Now.TimeOfDay.Milliseconds 
Dim t2 As Integer = DateTime.Now.AddHours(1).Millisecond 
If (t1 > t2) Then 
MessageBox.Show("t1>t2") 
ElseIf (t1 = t2) Then 
MessageBox.Show("t1=t2") 
Else 
MessageBox.Show("t2>t1") 
End If 
End Function 

это что-то вдоль линий это, что вы ищете?

Answer 3

Вы бы разработать формат вашего входного времени, а затем вызвать метод ToString() для объекта vb.net, поставив один и тот же формат.

Так, например, если ваш формат входного сигнала ч: мм: сс сс, как это, кажется, в вашем случае, один метод будет делать:

Dim compareTime As String = "1:42:21 PM" 

If compareTime = DateTime.Now.ToString("h:mm:ss tt") Then 

    ' The times match 

End If 

Если вы хотите сделать какое-то сравнение, вы должны использовать функцию DateTime.Parse() для преобразуйте дату ввода в объект DateTime. Тогда вы можете просто использовать> или < знаки:

Dim myCompareTime As DateTime = DateTime.Parse("1:42:21 PM") 

If myCompareTime.TimeOfDay > DateTime.Now.TimeOfDay Then 

    ' Compare date is in the future! 

End If 

Answer 4

Для сравнения времени часть двух значений DateTime:

Dim TimeStart as DateTime = #1:42:21 PM# 
Dim TimeEnd as DateTime = #2:00:00 PM# 

If TimeStart.TimeOfDay < TimeEnd.TimeOfDay Then 
    Console.WriteLine("TimeStart is before TimeEnd") 
End If 

Answer 5

Показать разницу во времени в часах, минутах и ​​секундах

Dim TimeEnd As DateTime = #5:00:00 PM# 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 

    Dim span As System.TimeSpan = TimeEnd.TimeOfDay - DateTime.Now.TimeOfDay 

    Label1.Text = span.Hours & "hr:" & span.Minutes & "min:" & span.Seconds & "sec" 

End Sub