pears.dateToNearest

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."dateToNearest" IS 
{CREATE FUNCTION 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
}