关于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>