三国志12乌丸:问一下编程

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/05 11:32:03
<HTML>
<HEAD><TITLE>演示VBScript的函数</TITLE></HEAD>
<BODY>
<%
Function Week(ByVal MyDate)
If IsDate(MyDate) = False Then
Response.Write("无效日期")
Exit Function
End If
Select Case Weekday(MyDate)
Case 1
Week = "星期日"
Case 2
Week = "星期一"
Case 3
Week = "星期二"
Case 4
Week = "星期三"
Case 5
Week = "星期四"
Case 6
Week = "星期五"
Case 7
Week = "星期六"
End Select
End Function

Response.Write(FormatDateTime(Date, 1) & "是 ")
Response.Write(Week(Date))
%>
</BODY>
</HTML>
这里的ByVal好像有没有都没什么影响,那么这时为什么要用呢?

表示按值传递。