Re: 4GL date routine, HOW?
Posted in 1993
ed, your problem statement says that you are computing the number of days between 2 dates. your program is computing 60 days prior to today. ?? here is a short program for you: database stores main define date1 date define date2 date define date3 date define diff integer prompt "ENTER DATE1" for date1 prompt "ENTER DATE2" for date2 # get the number of days between the two dates let diff = date2 - date1 # add 'diff' days to date2 let date3 = date2 + diff display "DATE1 : ",date1 display "DATE2 : ",date2 display "Days between DATE1 & DATE2 : ",diff display "DATE2 + (Days between DATE1 & DATE2) : ",date3 end main regards, ------------------------------------------------------------------------------ | . . Bob Baskett | ... ... Software Engineer, DBA | ..... ..... Business Systems Integration Group | .. ... .. Semiconductor Products Sector | . . . Mesa, AZ | | Motorola, Inc ------------------------------------------------------------------------------