' JUL2GRE$(0.0) Convert Julian Date to Gregorian Format 04/05/1988-02/05/2010 ' ------------------------------------------------------------------------------ #INCLUDE "JUL2GRE" FUNCTION PBMAIN PRINT "JUL2GRE$(0.0) Convert Julian Date to Gregorian Format ";DATE$; PRINT " ";LEFT$(TIME$,5) PRINT STRING$(73,"-") PRINT PRINT "JUL2GRE$('' )='"; _ JUL2GRE$("" );"'" PRINT "JUL2GRE$('87-31' )='"; _ JUL2GRE$("87-31" );"'" PRINT "JUL2GRE$('1987-31' )='"; _ JUL2GRE$("1987-31" );"'" PRINT "JUL2GRE$('19*7-031')='"; _ JUL2GRE$("19*7-031");"'" PRINT "JUL2GRE$('1988-0#1')='"; _ JUL2GRE$("1988-0#1");"'" PRINT "JUL2GRE$('87-000' )='"; _ JUL2GRE$("87-000" );"'" PRINT "JUL2GRE$('87-366' )='"; _ JUL2GRE$("87-366" );"'" PRINT "JUL2GRE$('1988-367')='"; _ JUL2GRE$("1988-367");"'" PRINT "JUL2GRE$('87-031' )='"; _ JUL2GRE$("87-031" );"'" PRINT "JUL2GRE$('87-059' )='"; _ JUL2GRE$("87-059" );"'" PRINT "JUL2GRE$('87-090' )='"; _ JUL2GRE$("87-090" );"'" PRINT "JUL2GRE$('87-120' )='"; _ JUL2GRE$("87-120" );"'" PRINT "JUL2GRE$('87-151' )='"; _ JUL2GRE$("87-151" );"'" PRINT "JUL2GRE$('87-181' )='"; _ JUL2GRE$("87-181" );"'" PRINT "JUL2GRE$('87-212' )='"; _ JUL2GRE$("87-212" );"'" PRINT "JUL2GRE$('87-243' )='"; _ JUL2GRE$("87-243" );"'" PRINT "JUL2GRE$('87-273' )='"; _ JUL2GRE$("87-273" );"'" PRINT "JUL2GRE$('87-304' )='"; _ JUL2GRE$("87-304" );"'" PRINT "JUL2GRE$('87-334' )='"; _ JUL2GRE$("87-334" );"'" PRINT "JUL2GRE$('87-365' )='"; _ JUL2GRE$("87-365" );"'" PRINT "JUL2GRE$('1988-031')='"; _ JUL2GRE$("1988-031");"'" PRINT "JUL2GRE$('1988-060')='"; _ JUL2GRE$("1988-060");"'" PRINT "JUL2GRE$('1988-091')='"; _ JUL2GRE$("1988-091");"'" PRINT "JUL2GRE$('1988-121')='"; _ JUL2GRE$("1988-121");"'" PRINT "JUL2GRE$('1988-152')='"; _ JUL2GRE$("1988-152");"'" PRINT "JUL2GRE$('1988-182')='"; _ JUL2GRE$("1988-182");"'" PRINT "JUL2GRE$('1988-213')='"; _ JUL2GRE$("1988-213");"'" PRINT "JUL2GRE$('1988-244')='"; _ JUL2GRE$("1988-244");"'" PRINT "JUL2GRE$('1988-274')='"; _ JUL2GRE$("1988-274");"'" PRINT "JUL2GRE$('1988-305')='"; _ JUL2GRE$("1988-305");"'" PRINT "JUL2GRE$('1988-335')='"; _ JUL2GRE$("1988-335");"'" PRINT "JUL2GRE$('1988-366')='"; _ JUL2GRE$("1988-366");"'" END FUNCTION