Logo VB-EDV-Beratung

tpoint

Die Funktion tpoint($;$) gibt den übergeben numerischen Wert mit einer wählbaren Anzahl Nachkommastellen (2. Parameter, default = 2) in einem in Deutschland üblichen Format mit Dezimalkomma und Tausenderpunkten zurück.

sub tpoint($;$){
    my ($val,$dec) = @_;
    $dec = 2 if !defined $dec;
    my $res = sprintf("%0.${dec}f",$val);
    $res =~ s/\./,/;
    1 while $res =~ s/(\d)(\d\d\d)\b/$1.$2/;
    return $res;
}
© 2003 Volker Böhm Best viewed with any Browser Valid HTML 4.0