home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / database / informix / 2891 < prev    next >
Encoding:
Internet Message Format  |  1993-01-07  |  1.9 KB
  1. Path: sparky!uunet!spool.mu.edu!yale.edu!qt.cs.utexas.edu!cs.utexas.edu!zaphod.mps.ohio-state.edu!usc!howland.reston.ans.net!paladin.american.edu!gatech!emory!emory!not-for-mail
  2. From: inf_bb@hermes1.sps.mot.com (informix users bb)
  3. Newsgroups: comp.databases.informix
  4. Subject: Re:  4GL date routine, HOW?
  5. Date: 7 Jan 1993 14:48:04 -0500
  6. Organization: Mailing List Gateway
  7. Lines: 41
  8. Sender: walt@mathcs.emory.edu
  9. Distribution: world
  10. Message-ID: <1ii1dkINNll8@emory.mathcs.emory.edu>
  11. Reply-To: inf_bb@hermes1.sps.mot.com (informix users bb)
  12. NNTP-Posting-Host: emory.mathcs.emory.edu
  13. X-Informix-List-ID: <list.1759>
  14.  
  15. ed,
  16.  
  17. your problem statement says that you are computing the number
  18. of days between 2 dates.  your program is computing 60 days 
  19. prior to today. ??  here is a short program for you:
  20.  
  21. database stores
  22.  
  23. main
  24.   define date1 date
  25.   define date2 date
  26.   define date3 date
  27.   define diff  integer
  28.  
  29.   prompt "ENTER DATE1" for date1
  30.   prompt "ENTER DATE2" for date2
  31.  
  32.   # get the number of days between the two dates
  33.   let diff = date2 - date1
  34.  
  35.   # add 'diff' days to date2
  36.   let date3 = date2 + diff
  37.  
  38.   display "DATE1 : ",date1
  39.   display "DATE2 : ",date2
  40.   display "Days between DATE1 & DATE2 : ",diff
  41.   display "DATE2 + (Days between DATE1 & DATE2) : ",date3
  42.  
  43. end main
  44.  
  45. regards,
  46.  
  47. ------------------------------------------------------------------------------
  48.                                                             |     .     .
  49.   Bob Baskett                                               |    ...   ...
  50.   Software Engineer, DBA                                    |   ..... .....
  51.   Business Systems Integration Group                        |  ..   ...   ..
  52.   Semiconductor Products Sector                             | .      .      .
  53.   Mesa, AZ                                                  |
  54.                                                             |  Motorola, Inc
  55. ------------------------------------------------------------------------------
  56.