UC知道帮忙解释一段Function代码
来源：百度知道 编辑：UC知道 时间：2024/06/15 06:11:40
Function GetWeek(arg)
GetWeek=""
Dim arrGetWeek
arrGetWeek=Array("星期日","星期一","星期二","星期三","星期四","星期五","星期六")
If isNumeric(arg) Then
If Cint(arg)<8 or Cint(arg)>0 Then GetWeek=arrGetWeek(Cint(arg)-1)
Exit Function
End If
Else
Dim GetWeek_I
For GetWeek_I=0 To 6
If Lcase(arrGetWeek(GetWeek_I))=Lcase(Cstr(arg)) Then
GetWeek=GetWeek_I+1
Exit Function
End If
Next
End If
End Function
这是一个显示星期几的代码，请能看明白的高手逐句解释一下。
谢谢了！
GetWeek=""
Dim arrGetWeek
arrGetWeek=Array("星期日","星期一","星期二","星期三","星期四","星期五","星期六")
If isNumeric(arg) Then
If Cint(arg)<8 or Cint(arg)>0 Then GetWeek=arrGetWeek(Cint(arg)-1)
Exit Function
End If
Else
Dim GetWeek_I
For GetWeek_I=0 To 6
If Lcase(arrGetWeek(GetWeek_I))=Lcase(Cstr(arg)) Then
GetWeek=GetWeek_I+1
Exit Function
End If
Next
End If
End Function
这是一个显示星期几的代码，请能看明白的高手逐句解释一下。
谢谢了！
Function GetWeek(arg) '定义GetWeek函数
GetWeek="" '初始化
Dim arrGetWeek
arrGetWeek=Array("星期日","星期一","星期二","星期三","星期四","星期五","星期六") '定义数组，并将各星期存入该数组
If isNumeric(arg) Then ’如果输入数是数字
If Cint(arg)<8 or Cint(arg)>0 Then GetWeek=arrGetWeek(Cint(arg)-1) '如果输入的数字在0到8之间（不包括0和8）,则返
'回该数字对应的星期数
Exit Function
End If
Else '如果不是数字
Dim GetWeek_I
For GetWeek_I=0 To 6 '开始循环
If Lcase(arrGetWeek(GetWeek_I))=Lcase(Cstr(arg)) Then
'循输入的值是否在数组中 如果在
GetWeek=GetWeek_I+1
'返回当前星期所对应的数字
Exit Function '跳出函数
End If
Next '循环结束
End If
End Fun