Note:
Source:
{ MTHNAME: Sample User Written Routine in Pascal This sample is based on FOCUS/VMS 6.x sample. Only changes were to make it more like the standard C sample (entry point of lowercase mthname (vs. MTHNAM) and use mixed case month names). } MODULE MTH; TYPE monthstring = packed array [1..12] OF CHAR; [GLOBAL] PROCEDURE mthname(MTH:double ; var month : monthstring); VAR IMONTH :INTEGER; BEGIN IMONTH:= ROUND(MTH); IF IMONTH IN [1..12] THEN CASE IMONTH OF 1 : MONTH := 'January'; 2 : MONTH := 'February'; 3 : MONTH := 'March'; 4 : MONTH := 'April'; 5 : MONTH := 'May'; 6 : MONTH := 'June'; 7 : MONTH := 'July'; 8 : MONTH := 'August'; 9 : MONTH := 'September'; 10 : MONTH := 'October'; 11 : MONTH := 'November'; 12 : MONTH := 'December'; END ELSE MONTH := '** Error **' END; END.
iWay Software |