perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5597
davon online: 1
weitere User: 1
Click for quality!



18.01.2018 / 00:35

Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home


PERLscripts


PHPscripts


JAVAscripts


Hilfreiches


Links2www


Newscenter


Community


Interna




Snipplet :: Währungsformatierung

Kategorie: Scalare

Mit der folgenden Funktion lassen sich sowohl einfache Zahlenwerte in Währungsstring konvertieren, als auch über einen Faktor, in eine andere Währung umrechnen:


$wert=&format_price('123,23','EUR',2,1.95583) ;
$wert=&format_price('123,231212','DM') ;

sub format_price {

my ($val,$sign,$amount,$div)=@_ ;

$amount =~ s/\D//g ;
$amount=1 unless ($amount>0) ;

$val =~ s/\,/\./g ;

if ($div>0) {
 $val =  $val/$div ;
 $val =  sprintf "%0.2f" , $val ;
}

$val *= $amount ;
$val =  sprintf "%0.2f $sign" , $val ;
$val =~ s/\./\,/g ;
1 while $val =~ s/^(-?\d+)(\d{3})/$1.$2/ ;

return ($val) ;

}

Dieses Unterprogramm kann einfach in jedes Script kopiert und verwendet werden.

Autor:   Markus
E-Mail:support@perlunity.de

zurück zur Übersicht



Kommentare zu diesem Script/Snipplet

Kommentar(e) vorhanden

Noch keine Kommentare zu diesem Script/Snipplet vorhanden.

Alle Kommentare anzeigen - Kommentar hinzufügen


-






-
-