I can get yesterday's date:
-SET &TODAY = &YYMD;
-SET &YDAY = AYMD (&TODAY, -1, 'I8YYMD');

How do I get the same date last year when there was no 20110229, I was subtracting 1 from the current year and using the month and day.

This message has been edited. Last edited by: Spence,

What would be the correct date for that rule? As you say, yesterday's date a year ago, or 20100229, does not exist.

Would that be 20100301 (365 days ago) or 20100228 (the nearest day in the same month)?

This subtracts one year from the date, and for the 29/02/2012 results in 28/02/2011.

LASTYEAR/YYMD=DATEADD(DATE_YYMD, 'Y', -1);

Tewy, Can this be done in Dialogue Manager?
LASTYEAR/YYMD=DATEADD(DATE_YYMD, 'Y', -1);

Yes, you need to do the following:

-SET &lastYear= DATECVT(DATEADD(DATECVT(&YYMD,'I8YYMD','YYMD'),'Y','-1'),'YYMD','I8YYMD');

Tewy - That did it. Thank you.

-SET &TODAY = &YYMD;
-SET &YDAY = AYMD (&TODAY, -1, 'I8YYMD');
-SET &lyday = DATECVT(DATEADD(DATECVT(&YDAY,'I8YYMD','YYMD'),'Y','-1'),'YYMD','I8YYMD');

-TYPE &|YDAY == &YDAY
-TYPE &|lyday == &lyday
-EXIT

Want to use DATEADD in DM, this works and in less confusing that DATECVT/DATEADD/DATECVT method.

Create the following DEFINE FUNCTION and -INCLUDE it in the edasprof

-*
-*  Use this function to use DATEADD in Dialogue Manager
-*
 DEFINE FUNCTION UDATEADD(INDATE/A8YYMD, INUNIT/A2, INNBR/I4)
   INDATE1/YYMD    = INDATE;
   UDATEADD1/YYMD  = DATEADD(INDATE1, INUNIT, INNBR);
   UDATEADD/A8YYMD = UDATEADD1;
 END
-RUN

Then in DM do this:

-SET &LASTYEAR=UDATEADD(&YYMD,'Y',-1);

I have DEFINE FUCTIONS for DATEADD, DATEMOV and DATEDIF.

This message has been edited. Last edited by: jgelona,

Good point, jgelona. Sticking DATECVT back and forth before any DATE computation in Dialogue Manager is usually a point of confusion to many, and a hard one to spot errors in when used in long expressions.

I like the idea of your user-defined functions and most importantly the fact that you kept the same "signature" as that of the original WebFOCUS ones ... definitely much easier to use.