balasenthilsp
Member
HELP ME
i like to validat date field...
for that i declare it as character and validating it
i found this type of error.
for '12/712/00' input it working
DEFINE VARIABLE d AS DATE FORMAT "99/99/9999" NO-UNDO.
ASSIGN d = DATE('12/712/00') no-error .
IF ERROR-STATUS:ERROR THEN
DO:
IF( INDEX(ERROR-STATUS:GET-MESSAGE(1),'day' ,1))<> 0 THEN
disp " NVD-DAY".
ELSE
IF ( INDEX(ERROR-STATUS:GET-MESSAGE(1),'month' ,1))<> 0 THEN
disp " NVD-month" .
ELSE disp " NVD-YEAR".
END.
IF d = ? THEN
disp " NVD".
disp d.
/***********/
FOR 12/5P/JJ INPUT IT NOT VALIDATING
IT DISPLAY DATE AS 12/05/200 HOW CAN I OVERCOME THIS PROBLEM?
i like to validat date field...
for that i declare it as character and validating it
i found this type of error.
for '12/712/00' input it working
DEFINE VARIABLE d AS DATE FORMAT "99/99/9999" NO-UNDO.
ASSIGN d = DATE('12/712/00') no-error .
IF ERROR-STATUS:ERROR THEN
DO:
IF( INDEX(ERROR-STATUS:GET-MESSAGE(1),'day' ,1))<> 0 THEN
disp " NVD-DAY".
ELSE
IF ( INDEX(ERROR-STATUS:GET-MESSAGE(1),'month' ,1))<> 0 THEN
disp " NVD-month" .
ELSE disp " NVD-YEAR".
END.
IF d = ? THEN
disp " NVD".
disp d.
/***********/
FOR 12/5P/JJ INPUT IT NOT VALIDATING
IT DISPLAY DATE AS 12/05/200 HOW CAN I OVERCOME THIS PROBLEM?