# period in focus (format: yyyymmdd)

$fromDate= 19960101;
$toDate  = 19961231;

# User defined variables and routines
# accessible in the category-definitions

# All the following can be deleted or changed as desired.

# The absolute value function may be handy in some cases
sub abs {   
    local($argument) = @_;
    
    return $argument < 0.0 ? -$argument : $argument;
}

# The following are som date routines
sub year {   #  &year(19950814)  ->  1995
    local($date) = @_;
    return int($date/10000);
}
sub month {  #  &month(19950814)  ->  8
    local($date) = @_;
    return int(($date-&year($date)*10000)/100);
}
sub day {    #  &day(19950814)  ->  14
    local($date) = @_;
    return $date-&year($date)*10000-&month($date)*100;
}
