Hi!

If you are doing date-calculations, I strongly recommend not to re-invent the wheel, but to use a standard module. I have very good experiences with Date::Calc, which provides a function called Delta_Days. And which is consistent on any platform.

use Date::Calc qw (Delta_Days);
print Delta_Days (1904,1,1, 2013,3,5) + 1462 , "\n";
[download]

HTH, Rata