====== pears.dateToNearest ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
create function "pears"."dateToNearest"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  in "pDate" date,in "pUnit" char(1) ) 
returns date
deterministic
begin
  case "pUnit"
  when 'd' then
    return "pDate"
  when 'w' then
    while "dow"("pDate") <> 2 loop
      set "pDate" = "pDate"-1
    end loop;
    return "pDate"
  when 'm' then
    return "ymd"("year"("pDate"),"month"("pDate"),1)
  when 'q' then
    return "ymd"("year"("pDate"),"floor"(("month"("pDate")-1)/3)*3+1,1)
  when 'y' then
    return "ymd"("year"("pDate"),1,1)
  end case
end
</code>