Date Difference

kaalraa

Hi,

I have 2 dates in 2 different formats and i need to find the difference between them in number of days.

Format 1 - 03/14/2008
Format 2 - Sat Sep 1 12:32:52 2007

If the difference is more than 30 days, i need to process as per requirements. Any suggestions / pointers are all welcome.

Cheers.

ISCBorisB

Format2 -> Format1 Conversion is trivial. Quick and dirty (without format validation, error processing and the like) in Format1

use strict;
use Time::Local;

# Get time span in days, format mm/dd/YYYY
printf ("Time Span in Days is %s", get_time_span('03/14/2008', '09/01/2007', 24*60*60));
exit 0;

sub get_time_span   {
  my ($date0, $date1, $span_seconds) = @_;
  (get_epoch_seconds($date0) - get_epoch_seconds($date1))/$span_seconds;
}
sub get_epoch_seconds  {
  my ($date_string) = @_;
  my ($mn, $dy, $yr) = split('/', $date_string);
  timelocal(0, 0, 0, $dy, --$mn, $yr);
}

If you prefer Date::Manip, here is [post=95833]Ghoti's sample[/post], note that Time Zone(TZ) Environment Variable must be correctly set in order for that to work