B4X

Compute Difference Between Two DateTime Strings

Demonstrates how to compute the difference between two datetime strings. B4X

'  Imagine we have these strings:

Dim t1 As String = "2022-11-14 15:45:38"
Dim t2 As String = "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 ChilkatStringBuilder
sb1.Initialize
sb1.Append(t1)
Dim count As Int = sb1.Replace(" ", "T")
sb1.Append("Z")

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

'  Load each into a CkDateTime
Dim dt1 As ChilkatDateTime
dt1.Initialize
dt1.SetFromTimestamp(sb1.GetAsString)
'  verify...
Log(dt1.GetAsTimestamp(False))

Dim dt2 As ChilkatDateTime
dt2.Initialize
dt2.SetFromTimestamp(sb2.GetAsString)
'  verify...
Log(dt2.GetAsTimestamp(False))

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