Decimal forkortelse

Hmmm, vil du ikke have forkortet det til 34,6?

Nå men hvis du gerne vil have det forkortet det til 34.5 skal du blot bruge chop

chop($forlang);

skærer det sidste tegn af $forlang

$a=34.5642345;
$b=int($a*10)/10;
print "$b\n";

håber jeg lige kan få et lille point for den her :-)
syntaks: $forkortet_tal = forkort ($a,$b);
$a = taller der skal forkortes
$b = antallet af decimaler det skal forkortes til;
$forkortet_Tal = slutresultatet;
eksempel: $nyt_tal = forkort (1002.435, 2);
forkorter 1002.435 til to decimaler (1002.44).

sub forkort {
($a,$b) = @_;
if ($b == 0) { return int($a);}
$b2 =  '1'.0 x $b;
$a = int( ($a * $b2) + 0.5) / $b2;
return $a;
}

Jeg har altså allerede givet point til erik jacobsen. Hvordan kan jeg også gi dig point.

du kan jo oprette et spørgsmål uden tekst, som jeg kan svare på ;)

problemet med eriks svar er, at den ikke afrunder et tal, men bare skærer alle decimaler af, f.eks. vil 39,9 ikke blive til 40, men til 39..

Det var det han bad om, y2k ;-)))

til y2k
Dit script virker altså ikke jeg har lige prøvet det og der er fejl i.

hej,
det gør det nu ellers hos mig ;)..hvilken fejlmelding kommer den med?