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