function days_between {
  typeset a=$1 b=$2 days=0
  (( a > b )) && eval a=$b b=$a

  while (( a < b )); do
    b=$(pn_day_nr $b -1)
    (( days = days + 1 ))
  done

  printf "%s\n" $days
  return 0
}