关于获取当前的星期 - 编程论坛

#2

madpbpl2007-12-22 00:56

response.write GetWeek(yourdate)

#3

boyfuture2007-12-22 09:17

<td><%Function GetWeek(ThisDay)
If ThisDay<>"" And IsDate(ThisDay) Then
   Dim CharWeek
   CharWeek=Weekday(ThisDay)
   Select Case CharWeek
    Case 1
     GetWeek="星期日"
    Case 2
     GetWeek="星期一"
    Case 3
     GetWeek="星期二"
    Case 4
     GetWeek="星期三"
    Case 5
     GetWeek="星期四"
    Case 6
     GetWeek="星期五"
    Case 7
     GetWeek="星期六"
   End Select
End If
End Function
          response.write GetWeek(thisday)%> thisday </td>还是不知道怎么用啊？没有结果输出啊？能再详细点吗？如何获取呢？

#4

zhou2007-12-22 09:23

提示: 作者被禁止或删除内容自动屏蔽，只有管理员可见

#5

boyfuture2007-12-22 09:53

还是不对啊，提示：
误的参数个数或无效的参数属性值: 'GetWeek'
请想想办法啊！谢谢！

#6

gdk20062007-12-22 13:36

看看我写的：

'===判断星期函数===

Function Check_weekday(adate)

  adate=Weekday(adate)

  If adate=1 Then

    Week="星期日"

  ElseIf adate=2 Then

    Week="星期一"

  ElseIf adate=3 Then

    Week="星期二"

  ElseIf adate=4 Then

    Week="星期三"

  ElseIf adate=5 Then

    Week="星期四"

  ElseIf adate=6 Then

    Week="星期五"

  ElseIf adate=7 Then

    Week="星期六"

  End If

Check_Weekday=Week

End Function

'===判断星期函数===

调用：<%=Check_weekday(date())%>

#7

gdk20062007-12-22 13:40

或者是把你的改改：

<%
Function GetWeek(ThisDay)
If IsDate(ThisDay) Then
   Dim CharWeek
   CharWeek=Weekday(ThisDay)
   Select Case CharWeek
    Case 1
     GetWeek="星期日"
    Case 2
     GetWeek="星期一"
    Case 3
     GetWeek="星期二"
    Case 4
     GetWeek="星期三"
    Case 5
     GetWeek="星期四"
    Case 6
     GetWeek="星期五"
    Case 7
     GetWeek="星期六"
   End Select
End If
End Function

%>
<%= GetWeek(Date())%>

注意你的函数里面的参数在函数体中要一致！

#8

boyfuture2007-12-22 16:14

成功了，谢谢老大！以后请多多指教！