Don Harrington wrote:
>
> I have an eight character date (YYYYMMDD) that I am trying to add a
> number of days to to arrive at another date. Here is the code:
>
> DEFINE DATE-ISS INT*8 (or DATE, either one gives the same results) =
> NCONVERT(DATE-ISSE) (DATE-ISSUE being thedate I am trying to add to)
> DEFINE DUE-DATE-CALC INT SIZE 4 = DAYS(DATE-ISS) + FREQUENCY-I &
> IF FREQ-8UNIT = "D" ELSE DAYS(DATE-ISS) + FREQUENCY-I * 365 &
> IF FREQ-UNIT = "Y"
> DEFINE DUE-DATE-CHAR CHAR*8 = ASCII(DATE(DUE-DATE-CALC))
>
> My problem is that DUE-DATE-CALC is always zero. What am I doing wrong
> (no editorial comments, please)?
>
I ran a test of yr code, and the problem is more basic. DUE-DATE-CALC is too
small--
current dates are 35000+ in DAYS. If I make the field INT*8, this works fine...
although I'd
need to work on getting DUE-DATE-CHAR to show the century.
Hope this is helpful!