Вычтите время в VB.net

Question

Я пытаюсь вычесть два раза.

Sub notifier(checkouttime As Label)
        Dim checktime As New DateTime(checkouttime.Tag)
        Dim currenttime As New DateTime(DateAndTime.TimeOfDay.ToString("hh:mm:ss"))

        Dim balance As TimeSpan = checktime - currenttime
    End Sub

на моем checkouttime.tag есть значение времени в этом формате "чч: мм: сс"

и я должен получить текущее время на сегодня в том же формате, и я достигаю его, но когда мне нужно вычесть их, я получаю ошибку.

An unhandled exception of type 'System.InvalidCastException' occurred in Microsoft.VisualBasic.dll

Additional information: Conversion from string "08:00:58" to type 'Long' is not valid.

заранее спасибо

Answer 1

Это попытается разобрать ваш DateTime строка. Возможно, вам придется сохранить дату со временем, которое вы сохраните в свой Tag имущество.

Private Function Notifier(checkouttime As Label) As String
   Dim checktime As DateTime
   If DateTime.TryParse(checkouttime.Tag.ToString, checktime) Then
     Dim currenttime As Date = Date.Now
     Return (currenttime - checktime).ToString()
   End If
   Return "Bad Time String"
End Sub

Answer 2

Неважно, я нашел другое подобное решение для моей проблемы, и вот как я ее решаю.

Sub notifier(checkouttime As Label)
        Dim checktime As String = checkouttime.Tag
        Dim splitcheck = Split(checktime, ":")
        Dim currenttime As String = CStr(DateAndTime.TimeOfDay.ToString("hh:mm:ss"))
        Dim splitcurrent = Split(currenttime, ":")

        Dim checkMinutes, currentMinutes As Integer

        checkMinutes = CDbl(splitcheck(0)) * 60 + CDbl(splitcheck(1)) + CDbl(splitcheck(2)) / 60
        currentMinutes = CDbl(splitcurrent(0)) * 60 + CDbl(splitcurrent(1)) + CDbl(splitcurrent(2)) / 60

        'Dim balance As String = checkkresult - currentresult

        MsgBox(checkMinutes & " " & currentMinutes & ". While current time is: " & currenttime)
    End Sub

Я перевел время в минуты, чтобы достичь своих целей.

Спасибо за ваш ответ, ребята.

Answer 3

Попробуйте этот формат...

Dim date1 As Date = #2/14/2014 9:35:04 AM#
Dim date2 As Date = #2/28/2014 12:30:54 PM#
Dim duration As TimeSpan = date1 - date2 

MsgBox(duration.ToString)