Perl

Compute Difference Between Two DateTime Strings

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

use chilkat();

# 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.
$sb1 = chilkat::CkStringBuilder->new();
$sb1->Append($t1);
$count = $sb1->Replace(" ","T");
$sb1->Append("Z");

$sb2 = chilkat::CkStringBuilder->new();
$sb2->Append($t2);
$count = $sb2->Replace(" ","T");
$sb2->Append("Z");

# Load each into a CkDateTime
$dt1 = chilkat::CkDateTime->new();
$dt1->SetFromTimestamp($sb1->getAsString());
# verify...
print $dt1->getAsTimestamp(0) . "\r\n";

$dt2 = chilkat::CkDateTime->new();
$dt2->SetFromTimestamp($sb2->getAsString());
# verify...
print $dt2->getAsTimestamp(0) . "\r\n";

# Get the difference in seconds
$diffSeconds = $dt2->DiffSeconds($dt1);
print "Difference in seconds: " . $diffSeconds . "\r\n";
print "Difference in minutes: " . ($diffSeconds / 60) . "\r\n";