# ---------------------------------------------------------------------
# Calculate difference between two dates.
# ---------------------------------------------------------------------
sub calc_time_diff
{
        my ($in_date1, $in_date2, $type) = @_;
        my $result = $in_date1 - $in_date2;

        # Calculate difference in hours.
        if (!$type) { $result = int($result / 3600); }

        # Calculate difference in days.
        else { $result = int($result / (24 * 3600)); }

        return $result;
}