5

VB.netで2回比較したい：

1:42:21 PMがあり、VB.netのTimeOfDayと比較したいのですが、どうすればよいですか？

4

5 に答える 5

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

DateTimeまたは、式を#記号で囲むことができます。

TimeOfDay > #1:42:21 PM#
于 2010-04-08T20:27:30.863 に答える
6

時間差を時間、分、秒で表示します

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
于 2012-10-15T06:11:36.927 に答える
3

入力時間の形式を計算してから、vb.netオブジェクトでToString（）メソッドを呼び出し、同じ形式をに入れます。

したがって、たとえば、入力形式がh：mm：ss ttである場合、次のようになります。

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
于 2010-04-08T20:28:41.403 に答える
0 
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

あなたが探しているのは、これに沿った何かですか？

于 2010-04-08T20:28:27.617 に答える
0

2つの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
于 2012-03-29T22:30:31.647 に答える