my ($Dy,$Dm,$Dd) = N_Delta_YMD($year1,$month1,$day1, $year2,$month2,$day2);
print $Dy * 360 + $Dm * 30 + $Dd;