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
|
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.