/*****************************************************************************
         AUTHOR: Speedy Mercer 
        WEBSITE: http://www.herohog.com
         E-MAIL: code AT herohog.com
          LEGAL: This program is provided for FREE.
                 There is NO warranty either written or implied.
   
   Convert days since Jan 1 to a date.
   
   Usage Syntax:
      DEF VAR vDays AS INTEGER INIT 79   NO-UNDO.
      DEF VAR vYear AS INTEGER INIT 2004 NO-UNDO.
      DEF VAR vDate AS DATE NO-UNDO.
      
      RUN FromDaysSinceJan1.p (INPUT vDays, INPUT vYear, OUTPUT vDate).
      
      DISP vDate.

*****************************************************************************/

DEF INPUT  PARAM vDays AS INTEGER NO-UNDO.
DEF INPUT  PARAM vYear AS INTEGER NO-UNDO.
DEF OUTPUT PARAM vDate AS DATE    NO-UNDO.

ASSIGN vDate = DATE(1,1,(vYear)) + (vDays MOD 1000) - 1.