home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST159.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  891 b   |  39 lines
  1. *******************
  2.  
  3. FUNCTION Gregorian
  4.  
  5.    PARAMETERS _gregin
  6.  
  7.    PRIVATE _gregstr, _gregyear, _gregdayt
  8.  
  9.    IF TYPE("_gregin") <> "N"
  10.       RETURN(CTOD("  /  /  "))
  11.    ENDIF
  12.  
  13.    IF (_gregin < 1000 .AND. _gregin > 366) .OR. _gregin < 1
  14.       RETURN(CTOD("  /  /  "))
  15.    ENDIF
  16.  
  17.    _gregstr = LTRIM(TRIM(STR(_gregin)))
  18.    _gregdayt = VAL(RIGHT(_gregstr, 3)) - 1
  19.  
  20.    IF _gregdayt < 0
  21.       RETURN(CTOD("  /  /  "))
  22.    ENDIF
  23.  
  24.  
  25.    IF VAL(_gregstr) - VAL(SUBSTR(_gregstr, LEN(_gregstr)-2)) = 0
  26.       * Do jsut the day logic
  27.       _gregyear = STR(YEAR(DATE()))
  28.    ELSE
  29.       _gregyear = STR(INT((VAL(_gregstr) - ;
  30.                   VAL(SUBSTR(_gregstr, LEN(_gregstr)-2))) / 1000))
  31.       IF VAL(SUBSTR(_gregstr, LEN(_gregstr) - 2)) > 366
  32.          RETURN(CTOD("  /  /  "))
  33.       ENDIF
  34.    ENDIF
  35.  
  36.    RETUN( CTOD("01/01/" + _gregyear) + _gregdayt)
  37.  
  38. * End of File
  39.