易语言 如何判断工作日还是周末？有源码，请教……

我的想法是这样的：
现有起始时间A，终止时间B。目的是计算A到B中间有多少天是工作日。最终返回的是一个整数。
我的思路是这样：从A开始，每一天都做“取星期几”的操作，如果返回值是2 3 4 5 6.则计做一次，如果是1和7，就不计次数。 最后统循环次数就可以。

我自己做的源码是这样的：

.版本 2

.子程序 算工作日
.参数 起始日, 日期时间型
.参数 终止日, 日期时间型
.局部变量 计算日, 日期时间型
.局部变量 工作日, 整数型
.局部变量 i

计算日 ＝ 取时间间隔 (起始日, 终止日, #日)
.计次循环首 (计算日, i)
.如果 (1 ＜ 取星期几 (增减时间 (起始日, #日, 1)) ＜ 7)
加入成员 (工作日, 1)
.否则
加入成员 (工作日, 0)
跳出循环 ()
.如果结束

.计次循环尾 ()
返回 (取数组成员数 (工作日))

请高手帮忙看下，哪里不对。

认真 重新 看了一下 原来 错的 地方还 满多的 修改代码如下
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

.版本 2

.子程序 __启动窗口_创建完毕

算工作日 (到时间 (“2011年7月16日22时32分47秒”), 取现行时间 ())

.子程序 算工作日, 整数型
.参数 起始日, 日期时间型
.参数 终止日, 日期时间型
.局部变量 计算日, 双精度小数型
.局部变量 工作日, 整数型, , "0"
.局部变量 非工作日, 整数型, , "0"
.局部变量 i, 整数型
.局部变量 x, 整数型

计算日 ＝ 取时间间隔 (终止日, 起始日, #日)
.计次循环首 (计算日, i)
x ＝ 取星期几 (增减时间 (终止日, #日, i))
输出调试文本 (x)
.如果 (x ＝ 1)
加入成员 (非工作日, 1)
.否则
加入成员 (工作日, x)
.如果结束

.计次循环尾 ()
输出调试文本 (“工作日 = ” ＋ 到文本 (取数组成员数 (工作日)))
输出调试文本 (“非工作日 = ” ＋ 到文本 (取数组成员数 (非工作日)))
返回 (取数组成员数 (工作日))
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
再不懂 留下 邮箱 地址哦.

我不会~~~但还是要微笑~~~：）