Re^3: Converting 24 hour time back into 12 hour


Don't ask to ask, just ask
	PerlMonks

Re^3: Converting 24 hour time back into 12 hour

by Lana (Beadle)

on May 27, 2013 at 03:31 UTC ( [id://1035350]=note: print w/replies, xml )

Need Help??

in reply to Re^2: Converting 24 hour time back into 12 hour
in thread Converting 24 hour time back into 12 hour

one more correction - you have forgot to convert 24hr's 00 hours to 12AM

sub to12h {
        local $_=shift;

        if (($_ < 0) || ($_ > 23)) {
           return ("$_ is not a valid hour");
        }

        return (12, "AM") if $_ == 0;
        return ($_, "AM") if $_ < 12;
        return ($_, "PM") if $_ == 12;
        return ($_ -12, "PM");
}

for (0..23) {
        print join " ", to12h($_), "\n";
}
[download]