Hola dguerr :)
Estuve buscando entre mis archivos y lo único que encontré fueron un par de funciones en Perl.
Espero que te sirvan:
sub juliano
{
my($year, $month, $day) = @_;
my($tmp);
$tmp = $day - 32075 - 2415019 + 1461 * ( $year + 4800 - ( 14 - $month ) / 12 )/4 + 367 * ( $month - 2 + ( ( 14 - $month ) / 12 ) * 12 ) / 12 - 3 * ( ( $year + 4900 - ( 14 - $month ) / 12 ) / 100 ) / 4;
return($tmp);
}
sub inverse_julian_day
{
use integer;
my($jd) = @_;
my($jdate_tmp);
my($m,$d,$y);
$jd += 2415019;
$jdate_tmp = $jd - 1721119;
$y = (4 * $jdate_tmp - 1)/146097;
$jdate_tmp = 4 * $jdate_tmp - 1 - 146097 * $y;
$d = $jdate_tmp/4;
$jdate_tmp = (4 * $d + 3)/1461;
$d = 4 * $d + 3 - 1461 * $jdate_tmp;
$d = ($d + 4)/4;
$m = (5 * $d - 3)/153;
$d = 5 * $d - 3 - 153 * $m;
$d = ($d + 5) / 5;
$y = 100 * $y + $jdate_tmp;
if($m < 10) {
$m += 3;
} else {
$m -= 9;
++$y;
}
return ($y, $m, $d);
}
Suerte ;)
<IMG src=banderas/argentina.gif>