function.asp

功能齐全的oa系统

<%
	Function getDays(MyYear,MyMonth)
	
	Dim IntYear,IntMonth,IntDays
	IntYear = MyYear
	IntMonth = MyMonth
	
	If IntMonth = 1 or IntMonth = 3 or IntMonth = 5 or IntMonth = 7 or IntMonth = 8 or IntMonth = 10 or IntMonth = 12 then
		IntDays = 31
	Elseif IntMonth = 2 and IntYear mod 4 <> 0 then
		IntDays = 28
	Elseif IntMonth = 2 and IntYear mod 4 = 0 and IntYear mod 1000 = 0 then
		IntDays = 28
	Elseif IntMonth = 2 and IntYear mod 4 = 0 and IntYear mod 1000 <> 0 then
		IntDays = 29
	Else
		IntDays = 30
	End if
	
	getdays = IntDays
	
	End Function
	
'	Response.Write getDays(2002,2)
%>