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



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 15
 Click for quality!



12.02.2012 / 02:56
Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home

PERLscripts

PHPscripts

JAVAscripts

Hilfreiches

Links2www

Newscenter

Community

Interna



Community  »  PERLunity: Rund um die Community zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragKaufmännisches Runden
 Seitenanfang
Hallo,

falls es mal jemand braucht : 


#-----------------------------------------
# sub fgdRunden ( Zahl, Nachkommastellen ) 
# -> kaufmaennisches Runden
#-----------------------------------------
sub fgdRunden {
	
	my $dInput  = shift ( @_ ) || 0;
	my $iStelle = shift ( @_ ) || 0;
	
	
	my $iVorz =  ( $dInput < 0 ) ? -1 : 1;
	
	my $dErg  = int ( $dInput * (10**$iStelle) + ( $iVorz*0.5 ) ) / ( 10**$iStelle); 
	
	return ( $dErg );
	
} # end sub fgdRFunden

Datum: 11.04.2006-09:39
Beitragre: Kaufmännisches Runden
 Seitenanfang
Hi,

sehr guter Beitrag. ;-)

Und hier der Grund, warum man sich nicht auf das System verlassen sollte, wenn man finanziell augerichtete Applikationen entwickelt.

http://perldoc.perl.org/perlfaq4.html#Does-Perl-have-a-round%28%29-function%3F--What-about-ceil%28%29-and-floor%28%29%3F--Trig-functions%3F

-uw

Datum: 11.04.2006-13:47
-






-
 -