# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
sub f_zahl { ################################################################
$a_debug.= "<b>A sub f_zahl(@_)</b><br>";
# Syntax: f_zahl("Zahl", "Anzahl Stellen","Trennzeichenstellen"); (Voreinst. 2 Stellen,3Stellen)
my ($Zahl, $Stellen,$sp) = @_; my ($s, $i) = ("", 0);
$sp ||= 3;
$Stellen = $Stellen eq "" ? "2" : $Stellen;
$Zahl = sprintf("%.$Stellen"."f", $Zahl) if ($Stellen > 0);
($Zahl, $Komma) = split(/\./, $Zahl);
for ($i=1; $i<=length($Zahl); $i++){$s=(($i % $sp == 0) && ($i<length($Zahl))? "." : "").substr($Zahl,-$i,1).$s;}
$Komma = "," . $Komma if length($Komma);
$a_debug.= "<b>E sub f_zahl</b><br>";
return $s . $Komma;
} ################################################################

<perl>

</perl>