Anonymous user
Date manipulation: Difference between revisions
no edit summary
No edit summary |
|||
Line 1,476:
{{out}}
<pre>Sun Mar 8 07:30:00 2009</pre>
=={{header|Maple}}==
<lang Maple>twelve_hours := proc(str)
local dt, zone;
local months := ["January","February","March","April","May","June","July","August","September","October","November","December"];
dt := StringTools:-ParseTime("%B %d %Y %l:%M%p", str);
zone := StringTools:-RegSplit(" ", str)[-1];
dt := Date(dt:-year, dt:-month, dt:-monthDay, dt:-hour, dt:-minute, timezone = zone);
dt := dt + 12 * Unit(hours);
printf("%s %d %d ", months[Month(dt)], DayOfMonth(dt), Year(dt));
if (HourOfDay(dt) >= 12) then
printf("%d:%dpm ", HourOfDay(dt)-12, Minute(dt));
else
printf("%d:%dam ", HourOfDay(dt), Minute(dt));
end if;
printf(TimeZone(dt));
end proc;
</lang>
{{Out|Usage}}
<lang>twelve_hours("March 7 2009 7:30pm EST");
twelve_hours("March 2 2009 0:10am WET");
twelve_hours("March 2 2009 6:30am AST");</lang>
{{Out|Output}}
<pre>
March 8 2009 7:30am EST
March 2 2009 0:10pm WET
March 2 2009 6:30pm AST
</pre>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
| |||