Date functions: qdate


qdate() #@ Print information about a given date number
{       #@ USAGE: qdate YYYYMMDD
  local num= day month year indent=27
  split_date "$*"
  is_date "$year-$month-$day" || err 1 "Invalid date: $*\nUSAGE: qnum YYYYMMDD" || return
  printf -v num %02d%02d%02d "$year" "$month" "$day"
  printf '\n Date %d-%02d-%02d:\n' "$year" "$month" "$day"
  qnum "$num"
  echo $'\n Year:'
  qnum "$year"
  echo $'\n Month:'
  qnum "$month"
  echo $'\n Day:'
  qnum "$day"
  for e in {3..10}
  do
    n_root "$num" "$e" && echo "$num~$n_root~"
  done
}