VBScript

Compute Difference Between Two DateTime Strings

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' Imagine we have these strings:

t1 = "2022-11-14 15:45:38"
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.
set sb1 = CreateObject("Chilkat.StringBuilder")
success = sb1.Append(t1)
count = sb1.Replace(" ","T")
success = sb1.Append("Z")

set sb2 = CreateObject("Chilkat.StringBuilder")
success = sb2.Append(t2)
count = sb2.Replace(" ","T")
success = sb2.Append("Z")

' Load each into a CkDateTime
set dt1 = CreateObject("Chilkat.CkDateTime")
success = dt1.SetFromTimestamp(sb1.GetAsString())
' verify...
outFile.WriteLine(dt1.GetAsTimestamp(0))

set dt2 = CreateObject("Chilkat.CkDateTime")
success = dt2.SetFromTimestamp(sb2.GetAsString())
' verify...
outFile.WriteLine(dt2.GetAsTimestamp(0))

' Get the difference in seconds
diffSeconds = dt2.DiffSeconds(dt1)
outFile.WriteLine("Difference in seconds: " & diffSeconds)
outFile.WriteLine("Difference in minutes: " & (diffSeconds / 60))

outFile.Close