Visual FoxPro

Compute Difference Between Two DateTime Strings

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

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.
loSb1 = CreateObject('Chilkat.StringBuilder')
loSb1.Append(lcT1)
lnCount = loSb1.Replace(" ","T")
loSb1.Append("Z")

loSb2 = CreateObject('Chilkat.StringBuilder')
loSb2.Append(lcT2)
lnCount = loSb2.Replace(" ","T")
loSb2.Append("Z")

* Load each into a CkDateTime
loDt1 = CreateObject('Chilkat.CkDateTime')
loDt1.SetFromTimestamp(loSb1.GetAsString())
* verify...
? loDt1.GetAsTimestamp(0)

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