Subversion Repositories wimsdev

Rev

Rev 1755 | Rev 2559 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed 

!distribute items $wims_read_parm into record,_year,_month,_day

!set months=Ò»ÔÂ,¶þÔÂ,ÈýÔÂ,ËÄÔÂ,ÎåÔÂ,ÁùÔÂ,ÆßÔÂ,°ËÔÂ,¾ÅÔÂ,Ê®ÔÂ,ʮһÔÂ,Ê®¶þÔÂ

!goto $record

:date
!set c_date=!nospace __$_year/$_month/$_day __
!set c_date=!replace internal __/ by in $c_date
!set c_date_out=!replace internal /__ by in $c_date
!set c_date_out=!replace internal __ by in $c_date_out

!set l_m=!item $_month of $months
!set l_date_out=$_year, $l_m, $_date

!exit

:months
!exit