Subject: ARMRCALC18
Function: testdate(ymd)
The testdate function returns 0 if YMD is a valid date. Otherwise, testdate returns 1, indicating an invalid date value for YMD.