version 1.42, 2005/04/21 17:29:16
|
version 1.43, 2005/04/29 18:13:07
|
Line 596 sub SUMMAX {
|
Line 596 sub SUMMAX {
|
foreach (grep eval("/$mask/"),keys(%sheet_values)) { |
foreach (grep eval("/$mask/"),keys(%sheet_values)) { |
push (@inside,$sheet_values{$_}); |
push (@inside,$sheet_values{$_}); |
} |
} |
@inside=sort(@inside); |
@inside=sort {$a <=> $b} (@inside); |
my $sum=0; my $i; |
my $sum=0; my $i; |
for ($i=$#inside;(($i>$#inside-$num) && ($i>=0));$i--) { |
for ($i=$#inside;(($i>$#inside-$num) && ($i>=0));$i--) { |
$sum+=$inside[$i]; |
$sum+=$inside[$i]; |
Line 623 sub SUMMIN {
|
Line 623 sub SUMMIN {
|
foreach (grep eval("/$mask/"),keys(%sheet_values)) { |
foreach (grep eval("/$mask/"),keys(%sheet_values)) { |
$inside[$#inside+1]=$sheet_values{$_}; |
$inside[$#inside+1]=$sheet_values{$_}; |
} |
} |
@inside=sort(@inside); |
@inside=sort {$a <=> $b} (@inside); |
my $sum=0; my $i; |
my $sum=0; my $i; |
for ($i=0;(($i<$num) && ($i<=$#inside));$i++) { |
for ($i=0;(($i<$num) && ($i<=$#inside));$i++) { |
$sum+=$inside[$i]; |
$sum+=$inside[$i]; |