关于ASP组件的疑问
我用VB6按一个组件实例进行测试！

工程名：CheckYear
类名：LeapYear

代码为：

Option Explicit

'用来判断一个年份是否为闰年的函数

Public Function IsLeapYear(yr As Variant) As Boolean

'如果年份能够被4整除并且不能被100整除,或者能够被400整除

'那么它就是闰年

If (yr Mod 4 = 0 And yr Mod 100 <> 0) Or yr Mod 400 = 0 Then

IsLeapYear = True

Else

IsLeapYear = False

End If

End Function

然后进行 文件-生成CheckYear.dll时

提示“内在溢出” 的错误？
请各位帮忙解释一下！谢谢

[解决办法]
内存溢出？你贴出的这些代码貌似米什么问题！
<script language= "vbscript ">
Public Function IsLeapYear(yr)

'如果年份能够被4整除并且不能被100整除,或者能够被400整除

'那么它就是闰年

If (yr Mod 4 = 0 And yr Mod 100 <> 0) Or yr Mod 400 = 0 Then

IsLeapYear = True

Else

IsLeapYear = False

End If

End Function

msgbox IsLeapYear(2008)
</script>