www.pudn.com > sale.rar > chinadate.inc

<% 
function chinadate() 
dim chinayear 
dim chinamonth 
dim chinaday 
dim position 
dim lsposition 
dim lsdate() 
dim lsnum 
dim mydate 
 
mydate=date 
lsnum=0 
position=0 
lsposition=len(mydate) 
do while lsposition>0 
	lsnum=lsnum+1 
	redim preserve lsdate(lsnum) 
	position=instr(position+1,mydate,"-",1) 
	if position=0 then 
		position=instr(position+1,mydate,"/",1) 
	end if 
	if position>0 then 
		lsdate(lsnum)=left(mydate,position-1) 
		mydate=right(mydate,lsposition-position) 
		'response.write lsdate(lsnum) & "*"  
		lsposition=len(mydate) 
		position=0 
	else 
		lsposition=0 
		lsdate(lsnum)=mydate 
		'response.write lsdate(lsnum) 
	end if 
loop 
if lsnum=3 then 
	myyear=lsdate(1) 
	mymonth=lsdate(2) 
	myday=lsdate(3) 
	'response.write chinadate 
end if 
 
dim china() 
dim datenum() 
 
redim china(14) 
china(1)="一" 
china(2)="二" 
china(3)="三" 
china(4)="四" 
china(5)="五" 
china(6)="六" 
china(7)="七" 
china(8)="八" 
china(9)="九" 
china(10)="十" 
china(11)="二十" 
china(12)="三十" 
china(0)="○" 
dim k 
dim ls 
 
'求年份 
redim datenum(len(myyear)) 
for i=1 to len(myyear) 
	datenum(i)=left(myyear,i) 
	datenum(i)=right(datenum(i),1) 
	'response.write "
" & i & ":" & datenum(i) 
next 
k=0 
for i=1 to len(myyear) 
	s=datenum(i) 
	select case s 
		case "0" 
			datenum(i)=china(0) 
		case "1" 
			datenum(i)=china(1) 
		case "2" 
			datenum(i)=china(2) 
		case "3" 
			datenum(i)=china(3) 
		case "4" 
			datenum(i)=china(4) 
		case "5" 
			datenum(i)=china(5) 
		case "6" 
			datenum(i)=china(6) 
		case "7" 
			datenum(i)=china(7) 
		case "8" 
			datenum(i)=china(8) 
		case "9" 
			datenum(i)=china(9) 
	end select 
	'response.write datenum(i) 
	chinayear=chinayear & datenum(i) 
next 
chinayear=chinayear & "年" 
 
'求月份 
ls=cint(mymonth) 
if ls<=10 then 
	chinamonth=china(ls) & "月" 
else 
	ls=ls-10 
	chinamonth=china(10) & china(ls) & "月" 
end if 
'求日期 
ls=cint(myday) 
if ls<=10 then 
	chinaday=china(ls) & "日" 
else 
	if ls<20 then 
		ls=ls-10 
		if ls=0 then 
			chinaday=china(10) & "日" 
		else 
			chinaday=china(10) & china(ls) & "日" 
		end if 
	else 
		if ls<30 then 
			ls=ls-20 
			if ls=0 then 
				chinaday=china(11) & "日" 
			else 
				chinaday=china(11) & china(ls) & "日" 
			end if 
		else 
			ls=ls-30 
			if ls=0 then 
				chinaday=china(12) & "日" 
			else 
				chinaday=china(12) & china(ls) & "日" 
			end if 
		end if 
	end if 
end if 
chinadate=chinayear & chinamonth & chinaday 
end function 
'函数定义结束 
%>