home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
tools.zip
/
MONOFYR.FUN
< prev
next >
Wrap
Text File
|
1988-11-12
|
2KB
|
55 lines
MONOFYR FUNCTION(OPTION,MONTHIN)
!---------------------------------------------------------------------!
! THIS FUNCTION WILL RETURN A STRING CONTAINING THE MONTH OF THE !
! YEAR (AUGUST, MARCH, ETC.). !
! !
! TO CALL THIS FUNCTION. !
! !
! STRING = MONOFYR(OPTION,MONTHIN) !
! !
! WHERE: !
! !
! OPTION = A BYTE FIELD AS FOLLOWS. !
! !
! 0 - SHORT FORM OF MONTH (AUG, MAR, ETC.). !
! 1 - LONG FORM OF MONTH (AUGUST, MARCH, ETC.). !
! !
! MONTHIN = A LONG FIELD CONTAINING THE MONTH NUMBER IN THE !
! FORM OF 1 TO 12. !
!---------------------------------------------------------------------!
! COMPILER: CLARION V2.0 !
! SYSTEM: N/A !
! FUNCTION: MONOFYR !
! ENVIRONMENT: CALLED HAS A FUNCTION !
! REFERENCES: NONE !
!---------------------------------------------------------------------!
! HISTORY: !
! WRITTEN 10/20/88 BY DOMINICK G. GALLUCCI !
! MODIFIED 00/00/00 !
!---------------------------------------------------------------------!
MONTHOUT STRING(10) !DISPLAY DATE
MONTHIN LONG !DATE
OPTION BYTE !OPTION CODE
!0 SHORT
!1 LONG
MON_A_TBL STRING('JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC')
MON_SHORT STRING(3),DIM(12),OVER(MON_A_TBL) !MONTH OF YEAR
MON_L_TBL GROUP
STRING('JANUARY FEBRUARY MARCH APRIL MAY ')
STRING('JUNE JULY AUGUST SEPTEMBER')
STRING('OCTOBER NOVEMBER DECEMBER ')
.
MON_LONG STRING(9),DIM(12),OVER(MON_L_TBL) !MONTH OF YEAR
CODE
IF OPTION = 0 THEN
MONTHOUT = MON_SHORT[MONTHIN]
ELSE
MONTHOUT = MON_LONG[MONTHIN]
.
RETURN(MONTHOUT)