Subversion Repositories wimsdev

Rev

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