Unless you have a later use for the parts of the dates, why not:

my $dd = Delta_Days( Decode_Date_US($date1), Today() );
[download]