Difference between two dates

03-29-2012

Registered User

26, 1

Join Date: Oct 2011

Last Activity: 28 September 2013, 8:49 AM EDT

Posts: 26

Thanks Given: 12

Thanked 1 Time in 1 Post

Difference between two dates

hi all,

I need a help for below requirement.

Difference between two dates"12-11-2009" and "03-25-2012" (mm-dd-yy format") in weeks and days and hours

Please help me for this. Thanks in adv....

I am working in AIX, so dont have below command:-
date --version

gani_85

View Public Profile for gani_85

Find all posts by gani_85

03-29-2012

Registered User

2,019, 606

Join Date: Apr 2009

Last Activity: 27 February 2021, 12:15 PM EST

Location: India

Posts: 2,019

Thanks Given: 50

Thanked 606 Times in 567 Posts

perl code:

#! /usr/bin/perl -w
use strict;
use Time::Local 'timelocal';
 
my ($frm_dt, $to_dt) = ($ARGV&#91;0], $ARGV[1]);
 
my $diff = dt_to_epoch ($to_dt) - dt_to_epoch ($frm_dt);
my $x = $diff / (60*60*24*7);
 
print $diff / (60*60*24*7), " week(s)     OR\n";
print $diff / (60*60*24)  , " day(s)     OR\n" ;
print $diff / (60*60)     , " hr(s)\n\nOR\n"  ;
 
if ($x > int ($x)) {
    print int($x), " week(s) ";
    $x = ($x - int($x)) * 7;
    print int($x), " day(s) ";
    $x = ($x - int($x)) * 24;
    print int($x), " hr(s)\n";
}
 
sub dt_to_epoch {
    my $date = shift;
    my @x = split /-/, $date;
    return timelocal (0, 0, 0, $x&#91;1], $x[0] - 1, $x[2]);
}

Code:

[root@host user]# ./test.pl "12-11-2009" "03-25-2012"
119.285714285714 week(s)     OR
835 day(s)     OR
20040 hr(s)

OR
119 week(s) 2 day(s) 00 hr(s)

Last edited by balajesuri; 03-29-2012 at 05:43 AM..

balajesuri

View Public Profile for balajesuri

Find all posts by balajesuri

03-29-2012

Registered User

779, 112

Join Date: Feb 2006

Last Activity: 18 May 2018, 1:51 PM EDT

Location: Almer�a, Spain

Posts: 779

Thanks Given: 24

Thanked 112 Times in 106 Posts

Another perl:

Code:

# cat gap.pl 
#!/usr/bin/env perl
use strict;
use Time::Local;

sub diffT {
   my ($initD,$endD)=@_;
   my @initD = split /-/, $initD;
   my @endD  = split /-/, $endD;
   int(timelocal(0,0,0,$initD[1],$initD[0]-1,$initD[2]) - timelocal(0,0,0,$endD[1],$endD[0]-1,$endD[2])) ;
   }

my $init=shift;
my $end=shift;

my $diff=diffT($init,$end);
my $Ws = int( $diff / 604800 ) ;
my $Ds = ( $diff - ( 604800 * $Ws )  ) / 86400;
my $Hs = ( $diff - ( ( 604800 * $Ws )  + ($Ds * 86400) ) ) / 3600 ;
print "Weeks: $Ws Days:$Ds Hours:$Hs\n";
exit 0

Code:

# gap.pl  "03-25-2012" "12-11-2009"
Weeks: 119 Days:2 Hours:0

Klashxx

View Public Profile for Klashxx

Find all posts by Klashxx

Shell Programming and Scripting