' GRE2DAY&(0.0)  Convert Gregorian Date to Day Number  02/01/1989-10/15/2004
' --------------------------------------------------------------------------

  $INCLUDE "GRE2DAY"
  $LINK    "MODULE.PBL"

  DECLARE FUNCTION GRE2DAY&(Greg.Date$)

  CLS
  PRINT "GRE2DAY&(0.0)  Convert Gregorian Date to Absolute Day Number  ";DATE$;
  PRINT "  ";LEFT$(TIME$,5)
  PRINT STRING$(79,"-")
  PRINT

  PRINT "GRE2DAY&('*'         )="; _
         GRE2DAY&("*"         )
  PRINT "GRE2DAY&(''          )="; _
         GRE2DAY&(""          );"  - Today ";DATE$
  PRINT "GRE2DAY&('01-01-0001')="; _
         GRE2DAY&("01-01-0001")
  PRINT "GRE2DAY&('12-31-0001')="; _
         GRE2DAY&("12-31-0001")
  PRINT "GRE2DAY&('01-01-0002')="; _
         GRE2DAY&("01-01-0002")
  PRINT "GRE2DAY&('12-31-0002')="; _
         GRE2DAY&("12-31-0002")
  PRINT "GRE2DAY&('01-01-0003')="; _
         GRE2DAY&("01-01-0003")
  PRINT "GRE2DAY&('12-31-0003')="; _
         GRE2DAY&("12-31-0003")
  PRINT "GRE2DAY&('01-01-0004')="; _
         GRE2DAY&("01-01-0004")
  PRINT "GRE2DAY&('12-31-0004')="; _
         GRE2DAY&("12-31-0004")
  PRINT "GRE2DAY&('01-01-0005')="; _
         GRE2DAY&("01-01-0005")
  PRINT "GRE2DAY&('12-31-1986')="; _
         GRE2DAY&("12-31-1986")
  PRINT "GRE2DAY&('01-01-1987')="; _
         GRE2DAY&("01-01-1987")
  PRINT "GRE2DAY&('12-31-1987')="; _
         GRE2DAY&("12-31-1987")
  PRINT "GRE2DAY&('01-01-1988')="; _
         GRE2DAY&("01-01-1988")
  PRINT "GRE2DAY&('12-31-1899')="; _
         GRE2DAY&("12-31-1899")
  PRINT "GRE2DAY&('01-01-1900')="; _
         GRE2DAY&("01-01-1900")
  PRINT "GRE2DAY&('12-31-1999')="; _
         GRE2DAY&("12-31-1999")
  PRINT "GRE2DAY&('01-01-00'  )="; _
         GRE2DAY&("01-01-00"  );"  - Today's century"

  PRINT
  PRINT "Execution completed - hit [Enter] to continue..."