函数调用的时候“类型不匹配”？大家帮我看看是怎么回事！！！

john2008lyb 2003-10-15 12:31:03
asp文件如下：
<script>
'======================================================
' 函数 Date2Chinese
' 功能：获得中文日期的字符串（如一九九八年五月十二日）
' 参数: iDate 要转化的日期
' 返回: 中文日期的字符串
'======================================================
Function Date2Chinese(iDate)
　 　 Dim num(10)
　 　 Dim iYear
　 　 Dim iMonth
　 　 Dim iDay

　 　 num(0) = "〇"
　 　 num(1) = "一"
　 　 num(2) = "二"
　 　 num(3) = "三"
　 　 num(4) = "四"
　 　 num(5) = "五"
　 　 num(6) = "六"
　 　 num(7) = "七"
　 　 num(8) = "八"
　 　 num(9) = "九"

　 　 iYear = Year(iDate)
　 　 iMonth = Month(iDate)
　 　 iDay = Day(iDate)
　 　 Date2Chinese = num(iYear \ 1000) + _
　 　 　 　 num((iYear \ 100) Mod 10) + num((iYear _
　 　 　 　 \ 10) Mod 10) + num(iYear Mod _
　 　 　 　 10) + "年"
　 　 If iMonth >= 10 Then
　 　 　 　 If iMonth = 10 Then
　 　 　 　 　 　 Date2Chinese = Date2Chinese + _
　 　 　 　 　 　 "十" + "月"
　 　 　 　 Else
　 　 　 　 　 　 Date2Chinese = Date2Chinese + _
　 　 　 　 　 　 "十" + num(iMonth Mod 10) + "月"
　 　 　 　 End If
　 　 Else
　 　 　 　 Date2Chinese = Date2Chinese + _
　 　 　 　 　 　 num(iMonth Mod 10) + "月"
　 　 End If
　 　 If iDay >= 10 Then
　 　 　 　 If iDay = 10 Then
　 　 　 　 　 　 Date2Chinese = Date2Chinese + _
　 　 　 　 　 　 "十" + "日"
　 　 　 　 ElseIf iDay = 20 Or iDay = 30 Then
　 　 　 　 　 　 Date2Chinese = Date2Chinese + _
　 　 　 　 　 　 num(iDay \ 10) + "十" + "日"
　 　 　 　 ElseIf iDay > 20 Then
　 　 　 　 　 　 Date2Chinese = Date2Chinese + _
　 　 　 　 　 　 num(iDay \ 10) + "十" + _
　 　 　 　 　 　 num(iDay Mod 10) + "日"
　 　 　 　 Else
　 　　 　 　 　 Date2Chinese = Date2Chinese + _
　 　 　 　 　 　"十" + num(iDay Mod 10) + "日"
　 　 　 　 End If
　 　 Else
　 　 　 　 Date2Chinese = Date2Chinese + _
　 　 　 　 num(iDay Mod 10) + "日"
　 　 End If
End Function
</script>

<%
response.write date2Chinese(date())
%>

运行时显示如下：

Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'date2Chinese'

/book/1.asp，行68
...全文
116 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
yyf_321 2003-10-15
  • 打赏
  • 举报
 回复
<%
Function Date2Chinese(iDate)
　 　 Dim num(10)
　 　 Dim iYear
　 　 Dim iMonth
　 　 Dim iDay

　 　 num(0) = "〇"
　 　 num(1) = "一"
　 　 num(2) = "二"
　 　 num(3) = "三"
　 　 num(4) = "四"
　 　 num(5) = "五"
　 　 num(6) = "六"
　 　 num(7) = "七"
　 　 num(8) = "八"
　 　 num(9) = "九"

　 　 iYear = Year(iDate)
　 　 iMonth = Month(iDate)
　 　 iDay = Day(iDate)
　 　 Date2Chinese = num(iYear \ 1000) + _
　 　 　 　 num((iYear \ 100) Mod 10) + num((iYear _
　 　 　 　 \ 10) Mod 10) + num(iYear Mod _
　 　 　 　 10) + "年"
　 　 If iMonth >= 10 Then
　 　 　 　 If iMonth = 10 Then
　 　 　 　 　 　 Date2Chinese = Date2Chinese + _
　 　 　 　 　 　 "十" + "月"
　 　 　 　 Else
　 　 　 　 　 　 Date2Chinese = Date2Chinese + _
　 　 　 　 　 　 "十" + num(iMonth Mod 10) + "月"
　 　 　 　 End If
　 　 Else
　 　 　 　 Date2Chinese = Date2Chinese + _
　 　 　 　 　 　 num(iMonth Mod 10) + "月"
　 　 End If
　 　 If iDay >= 10 Then
　 　 　 　 If iDay = 10 Then
　 　 　 　 　 　 Date2Chinese = Date2Chinese + _
　 　 　 　 　 　 "十" + "日"
　 　 　 　 ElseIf iDay = 20 Or iDay = 30 Then
　 　 　 　 　 　 Date2Chinese = Date2Chinese + _
　 　 　 　 　 　 num(iDay \ 10) + "十" + "日"
　 　 　 　 ElseIf iDay > 20 Then
　 　 　 　 　 　 Date2Chinese = Date2Chinese + _
　 　 　 　 　 　 num(iDay \ 10) + "十" + _
　 　 　 　 　 　 num(iDay Mod 10) + "日"
　 　 　 　 Else
　 　　 　 　 　 Date2Chinese = Date2Chinese + _
　 　 　 　 　 　"十" + num(iDay Mod 10) + "日"
　 　 　 　 End If
　 　 Else
　 　 　 　 Date2Chinese = Date2Chinese + _
　 　 　 　 num(iDay Mod 10) + "日"
　 　 End If
End Function
response.write Date2Chinese(date)

%>
yyf_321 2003-10-15
  • 打赏
  • 举报
 回复
<%
response.write Date2Chinese(date)
%>
007james 2003-10-15
  • 打赏
  • 举报
 回复
可以这样直接调用吗?
尝试下:

<%
response.write "<script>"
response.write date2Chinese(date())
response.write "</script>"
%>
xiaobird1 2003-10-15
  • 打赏
  • 举报
 回复
<%
'======================================================
' 函数 Date2Chinese
' 功能：获得中文日期的字符串（如一九九八年五月十二日）
' 参数: iDate 要转化的日期
' 返回: 中文日期的字符串
'======================================================
Function Date2Chinese(iDate)
Dim num(10)
Dim iYear
Dim iMonth
Dim iDay

num(0) = "〇"
num(1) = "一"
num(2) = "二"
num(3) = "三"
num(4) = "四"
num(5) = "五"
num(6) = "六"
num(7) = "七"
num(8) = "八"
num(9) = "九"

iYear = Year(iDate)
iMonth = Month(iDate)
iDay = Day(iDate)
Date2Chinese = num(iYear \ 1000) + _
num((iYear \ 100) Mod 10) + num((iYear _
\ 10) Mod 10) + num(iYear Mod _
10) + "年"
If iMonth >= 10 Then
If iMonth = 10 Then
Date2Chinese = Date2Chinese + _
"十" + "月"
Else
Date2Chinese = Date2Chinese + _
"十" + num(iMonth Mod 10) + "月"
End If
Else
Date2Chinese = Date2Chinese + _
num(iMonth Mod 10) + "月"
End If
If iDay >= 10 Then
If iDay = 10 Then
Date2Chinese = Date2Chinese + _
"十" + "日"
ElseIf iDay = 20 Or iDay = 30 Then
Date2Chinese = Date2Chinese + _
num(iDay \ 10) + "十" + "日"
ElseIf iDay > 20 Then
Date2Chinese = Date2Chinese + _
num(iDay \ 10) + "十" + _
num(iDay Mod 10) + "日"
Else
Date2Chinese = Date2Chinese + _
"十" + num(iDay Mod 10) + "日"
End If
Else
Date2Chinese = Date2Chinese + _
num(iDay Mod 10) + "日"
End If
End Function



response.write date2Chinese(cstr(date()))
%>
yumeiren777 2003-10-15
  • 打赏
  • 举报
 回复
<Script Language=VBScript>
ppp()
</Script>
john2008lyb 2003-10-15
  • 打赏
  • 举报
 回复
<html>
<head>
<title>1111</title>
</head>
<Script Language=VBScript>
function ppp()
msgbox "asdfasfsafsaf"
end function
</Script>
<body text="#FF0000" bgcolor="#00FFCC">
……
</body>
</html>

在body中调用函数ppp该怎么写

C++ 函数匹配 重载函数的调用规则
但是，当几个重载函数形参数量相等、具有默认形参以及形参又可以发生类型转换时，判断会调用哪个重载函数就显得不那么明了。了解重载函数的调用规则有助于我们的判断。 函数匹配可以划分为三个步骤，分别为：选定...
关于 函数调用 参数不匹配的简单分析
前段时间朋友问我，如果函数的调用者在调用该函数的时候，其定义（指参数）和实际在库里，或者是目标文件里不一致会出什么问题呢？我们先将这个问题分为下面2个子问题：1. 编译和连接是否正常？2. 运行是否正常？第...
【C++基础之八】函数指针和回调函数
C++很多类库都喜欢用回调函数，MFC中的定时器，消息机制，hook机制等待，包括现在在研究的cocos2d-x中也有很多的回调函数。 1.回调函数 什么是回调函数呢？回调函数其实就是一个通过函数指针调用的函数！假如你把A...
c语言其他函数调用main函数,C语言中的main函数以及main函数是如何被调用的
main函数是C语言中比较特殊的函数，C程序总是从main函数开始执行，main函数的原型是：int main(int argc, char *argv[]);其中argc是命令行参数的个数，argv是指向参数的各个指针所构成的数组。当内核执行C程序时...
C/C++函数指针参数不匹配问题
函数指针在C/C++中很常用，最近遇到了一非常有趣的问题，函数指针的参数和函数的形参个数不匹配时会遇到的问题，下面看代码。 // // main.cpp // FuncPointer // // Created by ChengChao on 14-9-21. // Copyright ...
ASP

28,390

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章