(Visual FoxPro) Compute Difference Between Two DateTime Strings

Demonstrates how to compute the difference between two datetime strings.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lcT1
LOCAL lcT2
LOCAL loSb1
LOCAL lnCount
LOCAL loSb2
LOCAL loDt1
LOCAL loDt2
LOCAL lnDiffSeconds

* Imagine we have these strings:

lcT1 = "2022-11-14 15:45:38"
lcT2 = "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.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSb1 = CreateObject('Chilkat.StringBuilder')
loSb1.Append(lcT1)
lnCount = loSb1.Replace(" ","T")
loSb1.Append("Z")

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSb2 = CreateObject('Chilkat.StringBuilder')
loSb2.Append(lcT2)
lnCount = loSb2.Replace(" ","T")
loSb2.Append("Z")

* Load each into a CkDateTime
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CkDateTime')
loDt1 = CreateObject('Chilkat.CkDateTime')
loDt1.SetFromTimestamp(loSb1.GetAsString())
* verify...
? loDt1.GetAsTimestamp(0)

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CkDateTime')
loDt2 = CreateObject('Chilkat.CkDateTime')
loDt2.SetFromTimestamp(loSb2.GetAsString())
* verify...
? loDt2.GetAsTimestamp(0)

* Get the difference in seconds
lnDiffSeconds = loDt2.DiffSeconds(loDt1)
? "Difference in seconds: " + STR(lnDiffSeconds)
? "Difference in minutes: " + STR(lnDiffSeconds / 60)

RELEASE loSb1
RELEASE loSb2
RELEASE loDt1
RELEASE loDt2