>PARAMETER tcDate > >LOCAL lcOldDate, lcDate, ldReturn >lcOldDate = SET("DATE") >SET DATE TO YMD > >lcDate = STUFF(tcDate, 7, 0, "/") >lcDate = STUFF(lcDate, 5, 0, "/") >ldReturn = CTOD(lcDate) > >SET DATE TO (lcOldDate) > >RETURN ldReturn >