Days to year and month

Expand Post »

Hi Guys How to convert number of days to number of year and month in Perl.

Similar Threads

function to convert decimal year to year, month and days in PHP
VB ?: Find out Age based on Birthdate and Today in VB.NET
Is there a function that the determines the number of days in a current month? in Visual Basic 4 / 5 / 6
ask the user for a year and a month in numbers. Out the number of days in a month. in Java
Converting Gregorian Date to number of days in the year in C++

Prakash_8111

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

21 posts
since Jun 2009

Permalink

Sep 1st, 2010

Re: Days to year and month

I like to use Date::Manip, but it is rather large.

http://search.cpan.org/~sbeck/Date-M...Date/Manip.pod

You can do a TON of stuff with this module. Run the pod to text to get the full help text with formats, date calculations, etc.

Perl Syntax (Toggle Plain Text)
use Date::Manip;
$ENV{TZ}="EST";
use strict;
use warnings;
my $ptoday=ParseDate("today");
my $ftoday=UnixDate($ptoday,"%m/%d/%Y");
print "$ftoday\n";
my $month=UnixDate($ptoday,"%m");
my $day=UnixDate($ptoday,"%d");
my $year=UnixDate($ptoday,"%Y");
 
my $dayofyear=Date_DayOfYear($month,$day,$year);
print "$dayofyear\n";
use Date::Manip;
$ENV{TZ}="EST";
use strict;
use warnings;
my $ptoday=ParseDate("today");
my $ftoday=UnixDate($ptoday,"%m/%d/%Y");
print "$ftoday\n";
my $month=UnixDate($ptoday,"%m");
my $day=UnixDate($ptoday,"%d");
my $year=UnixDate($ptoday,"%Y");

my $dayofyear=Date_DayOfYear($month,$day,$year);
print "$dayofyear\n";

mitchems

Reputation Points: 26

Solved Threads: 38

Posting Whiz in Training

Offline

293 posts
since Feb 2009

Permalink

Sep 1st, 2010

Re: Days to year and month

Here's a little additional code for what you want...

Perl Syntax (Toggle Plain Text)
use Date::Manip;
$ENV{TZ}="EST";
use strict;
use warnings;
my $ptoday=ParseDate("today");
my $ftoday=UnixDate($ptoday,"%m/%d/%Y");
print "$ftoday\n";
my $month=UnixDate($ptoday,"%m");
my $day=UnixDate($ptoday,"%d");
my $year=UnixDate($ptoday,"%Y");
 
my $dayofyear=Date_DayOfYear($month,$day,$year);
print "$dayofyear\n";
 
my $ndate=ParseDate("this $dayofyear day of this year");
my $fdate=UnixDate($ptoday,"%m/%d");
print "$fdate\n";
use Date::Manip;
$ENV{TZ}="EST";
use strict;
use warnings;
my $ptoday=ParseDate("today");
my $ftoday=UnixDate($ptoday,"%m/%d/%Y");
print "$ftoday\n";
my $month=UnixDate($ptoday,"%m");
my $day=UnixDate($ptoday,"%d");
my $year=UnixDate($ptoday,"%Y");

my $dayofyear=Date_DayOfYear($month,$day,$year);
print "$dayofyear\n";

my $ndate=ParseDate("this $dayofyear day of this year");
my $fdate=UnixDate($ptoday,"%m/%d");
print "$fdate\n";

mitchems

Reputation Points: 26

Solved Threads: 38

Posting Whiz in Training

Offline

293 posts
since Feb 2009

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Perl Forum Timeline: Configuration Syncronization

Next Thread in Perl Forum Timeline: verilog files comparision

DaniWeb Message

Cancel Changes

User Name
Password