eXorithm – Execute Algorithm: View / Run Algorithm moon_cycle

function moon_cycle ($date
{
  $d = getdate$date);
  $year = $d'year'];
  $month = $d'mon'];
  $day = $d'mday'];
  
  $r = $year % 100;
  $r %= 19;
  if ($r>9)
    $r -= 19;
  $r = (($r * 11) % 30) + $month + $day
  if ($month<3)
    $r += 2;
  $r -= (($year<2000) ? 4 : 8.3);
  $r = floor$r+0.5)%30;
  return ($r < 0) ? $r+30 : $r
}