/*
  Convert a Date to the number of days since Jan 1.
  
  By Speedy Mercer
  
  Usage Syntax:
     DEF VAR vDays AS INTEGER NO-UNDO.
  
     RUN ToDaysSinceJan1.p (INPUT TODAY, OUTPUT vDays).
     
     DISP vDays.
*/

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

ASSIGN vDays = vDate - date(1,1,year(vDate)) + 1.