Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: Date::Calc question.

by kelan (Deacon)
on Oct 09, 2003 at 21:45 UTC ( #298119=note: print w/replies, xml ) Need Help??


in reply to Date::Calc question.

Here's another way:

use Date::Calc qw(Today Standard_to_Business Business_to_Standard Date +_to_Text); my ($year, $week, $dow) = Standard_to_Business(Today()); print Date_to_Text(Business_to_Standard($year, $week, $_)),"\n" for (1 + .. 7);
One thing to remember is that in the Date::Calc module, weeks start with Monday, unlike most US calendars.

kelan


Perl6 Grammar Student

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (5)
As of 2022-12-05 11:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?