pears.safedate

CREATE FUNCTION "pears"."safedate"( 
  IN "dd" CHAR(30) ) 
RETURNS CHAR(30)
BEGIN
  DECLARE "i" SMALLINT;
  DECLARE "t","d","m" CHAR(20);
  IF "dd" IS NULL THEN
    RETURN NULL
  END IF;
  SET "dd" = "replace"("dd",'T',' ');
  IF "trim"("dd") = '' THEN
    RETURN NULL
  END IF;
  IF "charindex"('/',"dd") = 0 THEN
    RETURN "dd"
  END IF;
  SET "i" = "charindex"(' ',"dd");
  IF "i" > 0 THEN
    SET "t" = "stuff"("dd",1,"i"-1,'');
    SET "dd" = "left"("dd","i"-1)
  ELSE
    SET "t" = ''
  END IF;
  SET "i" = "charindex"('/',"dd");
  SET "d" = "left"("dd","i"-1);
  SET "dd" = "stuff"("dd",1,"i",'');
  SET "i" = "charindex"('/',"dd");
  SET "m" = "left"("dd","i"-1);
  SET "dd" = "stuff"("dd",1,"i",'');
  RETURN("string"("dd",'-',"m",'-',"d","t"))
END