|
Last change
on this file since 9 was
2,
checked in by post_it, 17 years ago
|
|
Initial import from ~/POST_IT/
|
|
File size:
654 bytes
|
| Line | |
|---|
| 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.
