Re: Converting 24 hour time back into 12 hour

I looked through this thread, and was amazed that nobody implemented a correct, lossless implementation. Generally, when you write a 12-hour time, you should include "AM" or "PM", because otherwise you loose information. Thus, I'm adding my solution:

sub to12h {
 local $_=shift;
 return (12, "PM") if $_==0;
 return ($_, "AM") if $_<=12;
 return ($_-12, "PM") 
}

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

Of course, if you /want/ to loose information, just use the first element of the return value.

Warning: Unless otherwise stated, code is untested. Do not use without understanding. Code is posted in the hopes it is useful, but without warranty. All copyrights are relinquished into the public domain unless otherwise stated. I am not an angel. I am capable of error, and err on a fairly regular basis. If I made a mistake, please let me know (such as by replying to this node).

Comment on Re: Converting 24 hour time back into 12 hour Download Code

Replies are listed 'Best First'.
Re^2: Converting 24 hour time back into 12 hour by jfroebe (Parson) on Nov 07, 2004 at 16:57 UTC
hi, slight correction: `sub to12h { local $_=shift; if (($_ < 0) \|\| ($_ > 23)) { return ("$_ is not a valid hour"); } return ($_, "AM") if $_ < 12; return ($_, "PM") if $_ == 12; return ($_ -12, "PM") } for (0..23) { print join " ", to12h($_), "\n"; }` [download] Jason L. Froebe Team Sybase member No one has seen what you have seen, and until that happens, we're all going to think that you're nuts. - Jack O'Neil, Stargate SG-1	[reply] [d/l]
Re^3: Converting 24 hour time back into 12 hour by theorbtwo (Prior) on Nov 07, 2004 at 17:02 UTC
Thanks.	[reply]
Re^3: Converting 24 hour time back into 12 hour by Lana (Beadle) on May 27, 2013 at 03:31 UTC
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]	[reply] [d/l]
Re^4: Converting 24 hour time back into 12 hour by Anonymous Monk on Nov 04, 2015 at 03:32 UTC
there is no such thing as 24:00hrs...	[reply]


more useful options
	PerlMonks