On Thu, 22 Jan 2004 19:28:24 +0000 [EMAIL PROTECTED] wrote: > Is their a way in PERL to covert a date to a week number >
Try this; #!/usr/bin/perl use Date::Calc qw(Week_Number Week_of_Year); @t=localtime; $week = Week_Number($t[5]+1900,$t[4]+1,$t[3]); #Deprecated print " From Date::Calc Week Number is $week \n"; ($week,$year) = Week_of_Year($t[5]+1900,$t[4]+1,$t[3]); #Preferred print " From Date::Calc Week of Year is $week \n"; > Cheers > > Neill > > > > > > ******************** > IMPORTANT NOTICE This email (including any attachments) is meant only for the > intended recipient. It may also contain confidential and privileged information. If > you are not the intended recipient, any reliance on, use, disclosure, distribution > or copying of this email or attachments is strictly prohibited. Please notify the > sender immediately by email if you have received this message by mistake and delete > the email and all attachments. > > Any views or opinions in this email are solely those of the author and do not > necessarily represent those of Trinity Mirror PLC or its associated group companies > (hereinafter referred to as "TM Group"). TM Group accept no liability for the > content of this email, or for the consequences of any actions taken on the basis of > the information provided, unless that information is subsequently confirmed in > writing. Although every reasonable effort is made to keep its network free from > viruses, TM Group accept no liability for any virus transmitted by this email or any > attachments and the recipient should use up-to-date virus checking software. Email > to or from this address may be subject to interception or monitoring for operational > reasons or for lawful business practices. > > Trinity Mirror PLC is the parent company of the Trinity Mirror group of companies > and is registered in England No 82548, with its address at One Canada Square, Canary > Wharf, London E14 5AP. > ******************** > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > <http://learn.perl.org/> <http://learn.perl.org/first-response> > > > -- Owen -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
