vb.net - 将字符串从两个文本框转换为 hh :mm vb. NET

Question

我正在使用 VB.NET 为一个轮类制的制造单位开发一个应用程序。在每个类次结束时，应用程序应发出警报，指示类次已结束。

在应用程序中，用户在“小时和分钟”文本框中键入轮类时间，并在单击“保存”按钮时保存在数据库中。

如图所示，第一类在下午 03:30 结束，第二类在晚上 11:30 结束。 & 早上 07:30 的第三个类次。当应用程序加载时，每个类次的小时数和分钟数都存储在变量中。

我的问题是，如何将这些变量的值转换为时间格式 (HH:mm)，以便我可以将轮类时间与系统时间进行比较，并在每天轮类结束时发出警报，而不管日期如何。下面是我到目前为止尝试过的代码..

 Private Sub TmrMonitor_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrMonitor.Tick
    Dim Tim As String = TxtHH.Text & ":" & TxtMM.Text
    LblShift.Text = (DateTime.ParseExact(Tim, "hh:mm", CultureInfo.InvariantCulture)) = DateTime.Now()
    TmrMonitor.Stop()
    ReadReg()            ' Read data from PLC
    If FormActive = True Then
        TmrMonitor.Start()
    End If
    CommStat()           ' PLC communication status
End Sub

提前致谢。

普拉尚。

Answer 1

改变

LblShift.Text = (DateTime.ParseExact(Tim, "hh:mm", CultureInfo.InvariantCulture)) = DateTime.Now()

到

Dim Tim As String = TxtHH.Text & ":" & TxtMM.Text
LblShift.Text = (DateTime.ParseExact(Tim, "HH:mm", CultureInfo.InvariantCulture))
Dim shiftTime = TimeSpan.Parse(Tim)
Dim systemtime = TimeSpan.Parse(Now.ToString("HH:mm"))

If (shiftTime.Equals(systemtime) = False) Then
     MessageBox.Show("times don't match")
End If