Visual Basic 6.0

Compute Difference Between Two DateTime Strings

Demonstrates how to compute the difference between two datetime strings. Visual Basic 6.0

' Imagine we have these strings:

Dim t1 As String
t1 = "2022-11-14 15:45:38"
Dim t2 As String
t2 = "2022-11-16 17:23:41"

' How many minutes are between the two?

' First, we'd want load each date/time into a Chilkat CkDateTime object.
' In this case, there are no CkDateTime methods that accept the above format.
' However.. the CkDateTime's SetFromTimestamp will accept a date in the format "YYYY-MM-DDThh:mm:ssZ"

' First modify the above dates to the timestamp format.
Dim sb1 As New ChilkatStringBuilder
success = sb1.Append(t1)
Dim count As Long
count = sb1.Replace(" ","T")
success = sb1.Append("Z")

Dim sb2 As New ChilkatStringBuilder
success = sb2.Append(t2)
count = sb2.Replace(" ","T")
success = sb2.Append("Z")

' Load each into a CkDateTime
Dim dt1 As New CkDateTime
success = dt1.SetFromTimestamp(sb1.GetAsString())
' verify...
Debug.Print dt1.GetAsTimestamp(0)

Dim dt2 As New CkDateTime
success = dt2.SetFromTimestamp(sb2.GetAsString())
' verify...
Debug.Print dt2.GetAsTimestamp(0)

' Get the difference in seconds
Dim diffSeconds As Long
diffSeconds = dt2.DiffSeconds(dt1)
Debug.Print "Difference in seconds: " & diffSeconds
Debug.Print "Difference in minutes: " & (diffSeconds / 60)