One way.

#! perl -slw
use strict;
use Date::Manip;

print UnixDate( 
    DateCalc( 
        ParseDate('December 28, 1800')
    , '+72583 days')
, '%Q');
__END__
C:\test>248106
19990919
[download]

Beware the heftiness of Date::Manip, however. {grin}

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

I just got around to following the link you posted, and laughed myself silly.

Thanks for lightening my day:)

---

Examine what is said, not who speaks.
1) When a distinguished but elderly scientist states that something is possible, he is almost certainly right. When he states that something is impossible, he is very probably wrong.
2) The only way of discovering the limits of the possible is to venture a little way past them into the impossible
3) Any sufficiently advanced technology is indistinguishable from magic.
Arthur C. Clarke.

use strict;
use warnings;
use Date::Calc qw/Add_Delta_Days/;

my $delta = 72583;
my ($year,$month,$day) = Add_Delta_Days(1800,12,28,$delta);

printf "%4d%02s%02s",$year,$month,$day;
[download]

Enlil, This method fit my needs perfectly thanks for your assistance =) aschroh

Enlil,

One More Question if you would allow me.

How to push the result to a variable? I tried the following and it worked but the formatting was of course lost doing it this way.

what I did

use Date::Calc qw/Add_Delta_Days/;

my $delta = 72583;
my ($year,$month,$day) = Add_Delta_Days(1800,12,28,$delta);

$newdate = $year$month$day;
printf "$newdate \n";
[download]

which gave me 1999919
I need it to be YYYMMDD.

How do I put this to a variable with the formatting you used?

thanks for your great help =)

aschroh

Nota Bene I'm not sure if those modules can do what you want, but it'd probably be best to look there first.