PRSLIB01 ;JAH/WCIOFO-PAID UTILITIES AND LIBRARY 01 ;Mar 25, 2005
Source file <PRSLIB01.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAIN | ;DISPLAY MONTHLY CALENDAR FOR ANY DATE
|
|
| CALENDAR(OUT) | ;
; Ask user for a date and quit if not a valid date. ; Get # of days in the month the user has selected. ; Get the weekday for the 1st day of the selected month. ; If necessary get days elapsed from jan 1 to 1st day of selected mo. ; Display the month. |
|
| SILMO(PRSDT) | ;SILENT CALL TO DISPLAY MONTH
; INPUT: PRSDT - must be fileman date |
|
| GETPPS(FIRSTDAY,LASTDAY) | ;
|
|
| GETHEAD(Y) | ;
|
|
| WEEKDAY1(ZDATE) | ;get the weekday of the 1st day of the month
; INPUT: ZDATE - FileMan date, used as the month to display ; OUTPUT: return - Integer corresponding to day of week ; (i.e. Sunday[1], Monday[2]) for the 1st day of ; the month |
|
| DISPMO(DAYNO,NODAYS,HL) | ;DISPLAY ENTIRE MONTH
|
|
| ASKJULIA() | ;RETURN RESPONSE--DO YOU WANT A CALENDAR A with dates
; expressed as the number of days elapsed since January 1? |
|
| DISPJULI(DAYNO,NODAYS,JULIAND1) | ;
; DISPLAY GREGORIAN AND JULIAN CALENDAR SIDE BY SIDE |
|
| PAYROLMO(DAYNO,NODAYS) | ;PAYROLL STYLE DISPLAY OF ENTIRE MONTH
|
|
| DAYSINMO(Y,M) | ; Return number of days in month based on year and month
; Input: Y = year in 4 digit format between 1700 and 3000 ; M = month expressed as an integer from 1 to 12 (Jan - Dec) |
|
| GETJULI(ZFMDATE,YEAR) | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
