比较vb.net中的时间

时间:2014-06-09 06:12:47

标签: vb.net

如何在VB.Net中比较两个不同的Time对象。我已经实现了以下代码段。我仍然无法获得所需的输出。

time_One = Now
el_Time = time_One - time_Two
Label1.Text = Now.ToShortTimeString
If Label1.Text < "06:30:00 PM" Then
Label1.Text = "-----"
Else
Label1.Text = el_Time.ToString
End If

测试用例:

我想将当前时间与“06:30:00 PM”进行比较。

如果当前时间小于“06:30:00 PM”,则执行操作

3 个答案:

答案 0 :(得分:1)

time_One,time_Two和el_Time 声明为日期数据类型

然后进行时间比较:

 time_One = Now
 el_Time = New Date(DateDiff(DateInterval.Second, time_One, time_Two)

 If DateDiff(DateInterval.Second, TimeValue(Label1.Text), TimeValue("06:30 PM")) < 0 Then
    Label1.Text = "-----"
 Else
    Label1.Text = el_Time.ToString
 End If

答案 1 :(得分:1)

您可以尝试这种简单的方式:

Dim dtNow As Date = Date.Now()
Dim myDate As Date = New Date(dtNow.Year, dtNow.Month, dtNow.Day, 6, 30, 0)

If myDate < dtNow Then
    ' Perform an action
End If

它使用Date构造函数创建一个与当天相同的新DateTime和所需的时间,以将其与实际时间和日期进行比较。然后使用Date类型给出的比较运算符。

答案 2 :(得分:0)

您可以使用TimeSpan。看看这个:

Dim dtLimit As New TimeSpan(6, 30, 0)
Dim iMinutes As Double = (Date.Now.TimeOfDay - dtLimit).TotalMinutes 

If iMinutes < 0 Then 
    ' Perform an action
End If

此代码计算两个给定时刻之间的差异(仅限时间,没有日期);现在的和期望的。