Subversion Repositories wimsdev

Rev

Rev 1755 | Rev 2559 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1755 Rev 2413
Line -... Line 1...
- 
 
 1 
!distribute items $wims_read_parm into record,_year,_month,_day
- 
 
 2 
 
1 
!set months=Ò»ÔÂ,¶þÔÂ,ÈýÔÂ,ËÄÔÂ,ÎåÔÂ,ÁùÔÂ,ÆßÔÂ,°ËÔÂ,¾ÅÔÂ,Ê®ÔÂ,ʮһÔÂ,Ê®¶þÔÂ
 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