Perl

Compute Difference Between Two DateTime Strings

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

use strict;
use warnings;
use Chilkat2;

# Imagine we have these strings:

my $t1 = '2022-11-14 15:45:38';
my $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.
my $sb1 = Chilkat2::StringBuilder->new;
$sb1->Append($t1);
my $count = $sb1->Replace(' ', 'T');
$sb1->Append('Z');

my $sb2 = Chilkat2::StringBuilder->new;
$sb2->Append($t2);
$count = $sb2->Replace(' ', 'T');
$sb2->Append('Z');

# Load each into a CkDateTime
my $dt1 = Chilkat2::DateTime->new;
$dt1->SetFromTimestamp($sb1->GetAsString());
# verify...
print $dt1->GetAsTimestamp(0), "\n";

my $dt2 = Chilkat2::DateTime->new;
$dt2->SetFromTimestamp($sb2->GetAsString());
# verify...
print $dt2->GetAsTimestamp(0), "\n";

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