Date manipulation: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: removed STYLE from the HTML tag PRE.) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: use 'later' method, fix 'month' hash) |
||
Line 1,581: | Line 1,581: | ||
<lang perl6>my @month = <January February March April May June July August September October November December>; |
<lang perl6>my @month = <January February March April May June July August September October November December>; |
||
my %month = (@month Z=> ^12) |
my %month = flat (@month Z=> ^12), (@month».substr(0,3) Z=> ^12), 'Sept' => 8; |
||
grammar US-DateTime { |
grammar US-DateTime { |
||
Line 1,628: | Line 1,628: | ||
my $dt = DateTime.new(:$year, :$month, :$day, :$hour, :$minute, :$timezone).in-timezone(0); |
my $dt = DateTime.new(:$year, :$month, :$day, :$hour, :$minute, :$timezone).in-timezone(0); |
||
$dt |
$dt = $dt.later(hours => 12); |
||
say "12 hours later, GMT: $dt"; |
say "12 hours later, GMT: $dt"; |