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