Hello, Thank you for the reply. I have tried the code as you suggested. Below is my modification to the code

        my $s2="2016080100:00:00";
        my $e1="2016123100:00:00";
        
         my $format = '%dh %hd %hh %ht %yd';

        $duyx1 =(DateCalc($s2,$e1));
        $duyx1 = Delta_Format($duyx1,'2',$format);
        print "\nduyx1 = $duyx1\n";
[download]

The output that i get from the code above is 0.00 3648.00 3648.00 3648.00 0.00 But the actual output should be +0:0:+21:5:1:0:0 I am not sure what i missing . Really appreciate all your help. Many Thanks, Teju