Rev 14298 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 2413 | bpr | 1 | !distribute items $wims_read_parm into record,_year,_month,_day |
| 14298 | guerimand | 2 | !set lang_exists=yes |
| 2413 | bpr | 3 | !bound record within date,months default $ |
| 4016 | bpr | 4 | !set months=一月,二月,三月,四月,五月,六月,七月,八月,九月,十月,十一月,十二月 |
| 2413 | bpr | 5 | !if $record=$empty |
| 6 | !exit |
||
| 7 | !endif |
||
| 8 | |||
| 9 | !goto $record |
||
| 10 | |||
| 11 | :date |
||
| 12 | !set c_date=!nospace __$_year/$_month/$_day __ |
||
| 13 | !set c_date=!replace internal __/ by in $c_date |
||
| 14 | !set c_date_out=!replace internal /__ by in $c_date |
||
| 15 | !set c_date_out=!replace internal __ by in $c_date_out |
||
| 16 | |||
| 17 | !set l_m=!item $_month of $months |
||
| 15469 | bpr | 18 | !set l_date_out=$_year, $l_m, $_day |
| 2413 | bpr | 19 | |
| 20 | !exit |
||
| 21 | |||
| 22 | :months |
||
| 23 | !exit |