Velocity Reviews - Computer Hardware Reviews

Velocity Reviews > Newsgroups > Programming > Perl > Perl Misc > how to get tomorrow date using Date::CALC

Reply
Thread Tools

how to get tomorrow date using Date::CALC

 
 
Bob
Guest
Posts: n/a
 
      09-01-2005
want to take a date and return tomorrow's date..
How to convert $tomorrow back to YY-MM-DD format?
What is the inverse of Date_to_Days ?


... perl2.pl ---------------------------
use strict; use warnings; use Date::Calc qw(:all);

my ($yr2, $mon2, $day2, $tomorrow); my ($year, $month, $day);
$yr2 = 2005; $mon2 = 3; $day2 = 20;

print (" date- year: $yr2 month: $mon2 day:$day2 \n");
$tomorrow = Date_to_Days($yr2,$mon2,$day2) + 1;
print ("tomorrow: $tomorrow \n");

($year,$month,$day) = Today([$tomorrow]);
print ("tommorow- year: $year month: $month day:$day \n");
------------------------------------------------------------------

output ------------------------------------
D:\edu\lrn\perl\date>perl date2.pl
date- year: 2005 month: 3 day:20
tomorrow: 732026
tommorow- year: 2005 month: 9 day:1



 
Reply With Quote
 
 
 
 
Paul Lalli
Guest
Posts: n/a
 
      09-01-2005
Bob wrote:
> want to take a date and return tomorrow's date..
> How to convert $tomorrow back to YY-MM-DD format?
> What is the inverse of Date_to_Days ?


Did you even *try* to look for this answer on your own? Say, in the
documentation for the function you're using, of the module you're
using?

Straight out of perldoc Date::Calc's Date_to_Days() section :
In order to convert the number returned by this function back into a
date, use the function "Add_Delta_Days()" (described further below), as
follows:

$days = Date_to_Days($year,$month,$day);
($year,$month,$day) = Add_Delta_Days(1,1,1, $days - 1);

Please make an attempt to help yourself before asking hundreds of
people around the world to read documentation to you.

> .. perl2.pl ---------------------------
> use strict; use warnings; use Date::Calc qw(:all);
>
> my ($yr2, $mon2, $day2, $tomorrow); my ($year, $month, $day);
> $yr2 = 2005; $mon2 = 3; $day2 = 20;


GAAAH. What do you have against newlines?

>
> print (" date- year: $yr2 month: $mon2 day:$day2 \n");
> $tomorrow = Date_to_Days($yr2,$mon2,$day2) + 1;
> print ("tomorrow: $tomorrow \n");
>
> ($year,$month,$day) = Today([$tomorrow]);


What made you think the Today() function takes a number of days as an
argument? The docs say:
========================================
# ($year,$month,$day) = Today([$gmt]);

<...>

If the optional (boolean) input parameter "$gmt" is given, a "true"
value ("1") will cause "gmtime()" to be used instead of "localtime()",
internally, thus returning Greenwich Mean Time (GMT, or UTC) instead of
local time.
=======================================

Nothing about this function says that it returns anything other than
*today*'s date.

Paul Lalli

 
Reply With Quote
 
 
 
Reply

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Re: How include a large array? Edward A. Falk C Programming 1 04-04-2013 08:07 PM
Req- SAP SCM w/8-10 yrs exp.(start date is today or tomorrow) craig Java 0 04-10-2008 04:37 PM
Req- SAP SCM (start date is today or tomorrow) craig Java 0 04-10-2008 04:19 PM
Date, date date date.... Peter Grison Java 10 05-30-2004 01:20 PM
get date of tomorrow, need help Fran?ois Laroche Javascript 17 05-28-2004 02:51 AM



Advertisments