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

  $INCLUDE "DAY2GRE"
  $LINK    "MODULE.PBL"

  DECLARE FUNCTION DAY2GRE$(Day.Numb&)

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

  PRINT "DAY2GRE$(     0)='"; _
         DAY2GRE$(     0);"'"
  PRINT "DAY2GRE$(     1)='"; _
         DAY2GRE$(     1);"'"
  PRINT "DAY2GRE$(   365)='"; _
         DAY2GRE$(   365);"'"
  PRINT "DAY2GRE$(   366)='"; _
         DAY2GRE$(   366);"'"
  PRINT "DAY2GRE$(   730)='"; _
         DAY2GRE$(   730);"'"
  PRINT "DAY2GRE$(   731)='"; _
         DAY2GRE$(   731);"'"
  PRINT "DAY2GRE$(  1095)='"; _
         DAY2GRE$(  1095);"'"
  PRINT "DAY2GRE$(  1096)='"; _
         DAY2GRE$(  1096);"'"
  PRINT "DAY2GRE$(  1460)='"; _
         DAY2GRE$(  1460);"'"
  PRINT "DAY2GRE$(  1461)='"; _
         DAY2GRE$(  1461);"'"
  PRINT "DAY2GRE$(  1462)='"; _
         DAY2GRE$(  1462);"'"
  PRINT "DAY2GRE$(725371)='"; _
         DAY2GRE$(725371);"'"
  PRINT "DAY2GRE$(725372)='"; _
         DAY2GRE$(725372);"'"
  PRINT "DAY2GRE$(725736)='"; _
         DAY2GRE$(725736);"'"
  PRINT "DAY2GRE$(725737)='"; _
         DAY2GRE$(725737);"'"
  PRINT "DAY2GRE$(693595)='"; _
         DAY2GRE$(693595);"'"
  PRINT "DAY2GRE$(693596)='"; _
         DAY2GRE$(693596);"'"
  PRINT "DAY2GRE$(730119)='"; _
         DAY2GRE$(730119);"'"
  PRINT "DAY2GRE$(730120)='"; _
         DAY2GRE$(730120);"'"
  PRINT
  PRINT "Execution completed - hit [Enter] to continue..."