NYMD = INCYMD (NYMD,1)
NYMD = INCYMD (NYMD,-1)
FUNCTION INCYMD (NYMD,M)
INCYMD = NY*10000 + NM*100 + ND