home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / tools.zip / MONOFYR.FUN < prev    next >
Text File  |  1988-11-12  |  2KB  |  55 lines
  1. MONOFYR       FUNCTION(OPTION,MONTHIN)
  2. !---------------------------------------------------------------------!
  3. !  THIS FUNCTION WILL RETURN A STRING CONTAINING THE MONTH OF THE     !
  4. !  YEAR (AUGUST, MARCH, ETC.).                          !
  5. !                                      !
  6. !  TO CALL THIS FUNCTION.                          !
  7. !                                      !
  8. !     STRING = MONOFYR(OPTION,MONTHIN)                      !
  9. !                                      !
  10. !  WHERE:                                  !
  11. !                                      !
  12. !     OPTION = A BYTE FIELD AS FOLLOWS.                  !
  13. !                                      !
  14. !          0 - SHORT FORM OF MONTH (AUG, MAR, ETC.).          !
  15. !          1 - LONG FORM OF MONTH (AUGUST, MARCH, ETC.).          !
  16. !                                      !
  17. !     MONTHIN = A LONG FIELD CONTAINING THE MONTH NUMBER IN THE    !
  18. !          FORM OF 1 TO 12.                      !
  19. !---------------------------------------------------------------------!
  20. !     COMPILER: CLARION V2.0                          !
  21. !    SYSTEM: N/A                              !
  22. !     FUNCTION: MONOFYR                              !
  23. !  ENVIRONMENT: CALLED HAS A FUNCTION                      !
  24. !   REFERENCES: NONE                              !
  25. !---------------------------------------------------------------------!
  26. !  HISTORY:                                  !
  27. !    WRITTEN   10/20/88 BY DOMINICK G. GALLUCCI                  !
  28. !    MODIFIED  00/00/00                              !
  29. !---------------------------------------------------------------------!
  30.  
  31. MONTHOUT   STRING(10)            !DISPLAY DATE
  32. MONTHIN       LONG                !DATE
  33. OPTION       BYTE                !OPTION CODE
  34.                     !0 SHORT
  35.                     !1 LONG
  36.  
  37. MON_A_TBL    STRING('JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC')
  38. MON_SHORT    STRING(3),DIM(12),OVER(MON_A_TBL)     !MONTH OF YEAR
  39.  
  40. MON_L_TBL    GROUP
  41.          STRING('JANUARY  FEBRUARY MARCH    APRIL    MAY      ')
  42.          STRING('JUNE     JULY     AUGUST   SEPTEMBER')
  43.          STRING('OCTOBER  NOVEMBER DECEMBER ')
  44.          .
  45. MON_LONG     STRING(9),DIM(12),OVER(MON_L_TBL) !MONTH OF YEAR
  46.  
  47.   CODE
  48.  
  49.     IF OPTION = 0 THEN
  50.       MONTHOUT = MON_SHORT[MONTHIN]
  51.     ELSE
  52.       MONTHOUT = MON_LONG[MONTHIN]
  53.     .
  54.     RETURN(MONTHOUT)
  55.