Last change
on this file since 122 was
2,
checked in by post_it, 17 years ago
|
Initial import from ~/POST_IT/
|
File size:
654 bytes
|
Rev | Line | |
---|
[2] | 1 | FUNCTION daypm, month_i, year_i |
---|
| 2 | |
---|
| 3 | @common |
---|
| 4 | @com_eg |
---|
| 5 | ; |
---|
| 6 | ; define max number of days in month |
---|
| 7 | ; |
---|
| 8 | IF calendar_type LE 1 THEN BEGIN |
---|
| 9 | IF calendar_type EQ 0 THEN BEGIN |
---|
| 10 | feb = 28 |
---|
| 11 | ENDIF ELSE BEGIN |
---|
| 12 | leap = year_i MOD 4 |
---|
| 13 | IF leap EQ 0 THEN feb = 29 ELSE feb = 28 |
---|
| 14 | ENDELSE |
---|
| 15 | CASE month_i OF |
---|
| 16 | 1: mn = 31 |
---|
| 17 | 2: mn = feb |
---|
| 18 | 3: mn = 31 |
---|
| 19 | 4: mn = 30 |
---|
| 20 | 5: mn = 31 |
---|
| 21 | 6: mn = 30 |
---|
| 22 | 7: mn = 31 |
---|
| 23 | 8: mn = 31 |
---|
| 24 | 9: mn = 30 |
---|
| 25 | 10: mn = 31 |
---|
| 26 | 11: mn = 30 |
---|
| 27 | 12: mn = 31 |
---|
| 28 | ELSE: |
---|
| 29 | ENDCASE |
---|
| 30 | |
---|
| 31 | ENDIF ELSE mn = calendar_type |
---|
| 32 | |
---|
| 33 | return, mn |
---|
| 34 | END |
---|
Note: See
TracBrowser
for help on using the repository browser.