HP3000-L Archives

May 1996, Week 1

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Don Harrington <[log in to unmask]>
Reply To:
Don Harrington <[log in to unmask]>
Date:
Fri, 3 May 1996 16:37:57 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (23 lines)
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)?
 
TIA,
 
 
Don  Harrington                         Boeing Commercial Airplane Group
(206) 931-4457 voice                    P. O. Box 3707 M/S 5J-34
(206) 931-9085 FAX                      Seattle, WA  98124-2207
[log in to unmask]
 
These thoughts are owned by the person expressing them, and no one else!

ATOM RSS1 RSS2