I want to calculate the number of months between a amper date (&YYMD) and a database date.

I tried this, but the result are wrong.

DATE is a field form the database

DEFINE FILE AH0124FA
PEREOM/YYMD=DATEMOV(DATE,'EOM'); 
TODAY/YYMD='&YYMD';
ACTEOM/YYMD=DATEMOV(TODAY,'EOM');
THISMAAND/YYM=TODAY;
MDIF/I5=DATEDIF(PEREOM,ACTEOM,'M');
END

Frank

I've tried this and it seems fine. What is wrong with the results you are getting?

Doesn't DATEDIF need four arguments: DATEDIF(from_date, to_date, 'unit', outfield) ?

jimster06

Only for Maintain.

Maybe it's fixed in 7.6
I get not the numbers I would expect, and in the book 1001 etc I found this as a know error .

Frank,

Did you verify that your input dates are what they should be?

Just a thought.

Frank, it sounds like a simple subtraction should work for you- e.g.

-SET &YYM = EDIT(&YYMD,'999999') ; 
                                   
...                                
                                   
MYNEWM/YYM  = MYNEW ;              
MYYM/YYM WITH DVAL = '&YYM' ;      
MDIF/I5 = MYYM - MYNEWM ;          

I'll give it a try (Monday), thanks for the suggestions.

The system date, &YYMD is not in smart date YYMD format.
It is in I8YYMD format. You have to convert it to a smart date with DATECVT before you can use it in a smart date function like DATEMOV.

PEREOM/YYMD=DATEMOV(DATE,'EOM'); 
TODAY/YYMD=DATECVT(&YYMD,'I8YYMD','YYMD');
ACTEOM/YYMD=DATEMOV(TODAY,'EOM');

           
WHAT/YYMD   =  &YYMD  ;      

now actually seems to work.
it seems its gotten easier to make a smartdate out of an integer string.
in 764 anyway.
zowie, batman.

I've been doing this for 20 years:

CURRDT/YYMD=&YYMD;

Even back in regular FOCUS it has always worked (at least in PC, VAX and UNIX it has).

When I want months between 2 dates I do this:

CURRDT/YYMD=&YYMD;
DIFFMTH/I4=DATEDIF(DATE,CURRDT,'M');

I've never seen anytime this didn't work.