Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

Re: DateTime and hour 0

by fglock (Vicar)
on Apr 18, 2005 at 15:04 UTC ( #448908=note: print w/replies, xml ) Need Help??

in reply to DateTime and hour 0

I can't replicate the problem here. How about simplifying the algorithm instead?

sub minutes_before { my $minutes_b4=shift; my $month=shift; my $day=shift; my $hour=shift; my $minute=shift; # Lets find n minutes before! my $datetime=DateTime->new( year => 2005, month => month_to_num($month), day => $day, hour => $hour, minute => $minute, second => 00 ); $datetime->subtract( minutes => $minutes_b4 ); $ready=1; return @MINBEFORE = ( num_to_month( $datetime->month ), $datetime->day, $datetime->hour, $datetime->minute ); }

Replies are listed 'Best First'.
Re^2: DateTime and hour 0
by tcf03 (Deacon) on Apr 18, 2005 at 15:51 UTC
    Thanks That seems to work better, Im just trying to zero-pad the day and num_to_month( $datetime->month ) isnt returning anything. But I get the idea. Thanks again.
      Zero-padding is best done with printf or sprintf. I don't know where num_to_month is coming from (something you wrote?) but why not just use $datetime->month_name?

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://448908]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (6)
As of 2021-01-19 18:31 GMT
Find Nodes?
    Voting Booth?