Rev 1755 | Rev 2559 | Go to most recent revision | 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 |
2 | |||
3 | !set months=一月,二月,三月,四月,五月,六月,七月,八月,九月,十月,十一月,十二月 |
||
4 | |||
5 | !goto $record |
||
6 | |||
7 | :date |
||
8 | !set c_date=!nospace __$_year/$_month/$_day __ |
||
9 | !set c_date=!replace internal __/ by in $c_date |
||
10 | !set c_date_out=!replace internal /__ by in $c_date |
||
11 | !set c_date_out=!replace internal __ by in $c_date_out |
||
12 | |||
13 | !set l_m=!item $_month of $months |
||
14 | !set l_date_out=$_year, $l_m, $_date |
||
15 | |||
16 | !exit |
||
17 | |||
18 | :months |
||
19 | !exit |