Convert them to DateTime values using
DateTime.TryParseExact[
^], then subtract them. That will give you a
TimeSpan[
^] value that has the properties you need.
Dim date1 As String = "30/12/2018 06:41:13"
Dim date2 As String = "02/01/2019 17:01:42"
Dim dt1 As DateTime
If Not DateTime.TryParseExact(date1, "dd/MM/yyyy HH:mm:ss", CultureInfo.InvariantCulture, DateTimeStyles.None, dt1) Then
... report problem to user ...
Return
End If
Dim dt2 As DateTime
If Not DateTime.TryParseExact(date2, "dd/MM/yyyy HH:mm:ss", CultureInfo.InvariantCulture, DateTimeStyles.None, dt2) Then
... report problem to user ...
Return
End If
Dim diff As TimeSpan = dt2 - dt1
Console.WriteLine(diff.Days)
Console.WriteLine(diff.Hours)
Console.WriteLine(diff.Minutes)
Console.WriteLine(diff.Seconds)