ASP代码转换成VB代码以后，提示溢出

Function tmraumen_Timer(objtime)

		datesub=datediff("s",now,objtime)

		dd=fix(csng(datesub)/(60*60*24))

		hh=fix((csng(datesub)-csng(dd)*60*60*24)/(60*60))

		mm=fix((csng(datesub)-csng(dd)*60*60*24-hh*60*60)/60)

		ss=fix(csng(datesub)-csng(dd)*60*60*24-HH*60*60-MM*60)

		strtip=strtip + cstr(HH) + "小时"

		strtip=strtip + cstr(MM) + "分钟"

		strtip=strtip + cstr(SS) + "秒"

		tmraumen_Timer=strtip	

End function

在asp中执行没问题，一用VB，结果就溢出，需要如何修改呢,这是一段时间判断的代码，判断时间离现在还有多少时间 --------------------编程问答-------------------- 这函数转的……
参数类型不定义，返回值类型也不定义，真看不懂……
在必要的地方加上#号，如：60# * 60 * 24。 --------------------编程问答-------------------- --------------------编程问答--------------------

引用 1 楼 vbload 的回复:

这函数转的……
参数类型不定义，返回值类型也不定义，真看不懂……

+1

根据你的情况定义

Function tmraumen_Timer(objtime) as ?
        dim ? as ?
        dim ? as ?
        dim ? as ?


        datesub=datediff("s",now,objtime)
        dd=fix(csng(datesub)/(60*60*24))
        hh=fix((csng(datesub)-csng(dd)*60*60*24)/(60*60))
        mm=fix((csng(datesub)-csng(dd)*60*60*24-hh*60*60)/60)
        ss=fix(csng(datesub)-csng(dd)*60*60*24-HH*60*60-MM*60)
        strtip=strtip + cstr(HH) + "小时"
        strtip=strtip + cstr(MM) + "分钟"
        strtip=strtip + cstr(SS) + "秒"
        tmraumen_Timer=strtip    
End function

补充：VB ,  基础类