1  
   2  date-val: func [
   3  	"Do everything possible to convert a value to a date."
   4      date
   5      /def-day d [integer! word!] "Default day for mm/yyyy format. Number or 'last"
   6      /local res
   7  ] [
   8      if any-string? date [trim date]
   9      any [
  10          all [date? date  date]
  11          parse-simple-date/def-day date any [d 1]
  12          attempt [to date! date]
  13      ]
  14  ]