Brian wrote:
oops, should read......
$Year_out = $Year_in;
while ($Year_out > 100) {$Year_out -= 100;}
if (($Year_out > 00) && ($Year_out <= 25)) {$string = $string1;}
if (($Year_out > 25) && ($Year_out <= 50)) {$Year_out -=
25;$string = $string2;}
if (($Year_out > 50) && ($Year_out <= 75)) {$Year_out -=
50;$string = $string3;}
if (($Year_out > 75) && ($Year_out <= 100)) {$Year_out -=
75;$string = $string4;}
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
