Question

ASP自定义函数错误

Function FormatTime(s_Time)
Dim m, d, h, mi
If IsDate(s_Time) = False Then Exit Function
m = cstr(month(s_Time))
If len(m) = 1 Then m = "0" & m
d = cstr(day(s_Time))
If len(d) = 1 Then d = "0" & d
h = cstr(hour(s_Time))
If len(h) = 1 Then h = "0" & h
mi = cstr(minute(s_Time))
FormatTime= m & d & h & mi
End Function

调用
<%=FormatTime(rs2("Gdate1"))%>

错误提示：错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'FormatTime'
/scjd.asp, 第 145 行

Answer 1

明显的参数类型不对，你先输出Rs2("Gdate1")看是什么值，然后一步步找问题所在

Answer 2

可能rs2("Gdate1")返回的值与你所要求的值不匹配
所以改一下试试
<%=FormatTime(date(trim(rs2("Gdate1"))%)

Answer 3

检查下rs2("Gdate1") 的值