Foxtable(狐表)用户栏目专家坐堂 → [求助]求当月工作日的天数代码


  共有21141人关注过本帖树形打印复制链接

主题:[求助]求当月工作日的天数代码

帅哥哟,离线,有人找我吗?
舜风
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 小学文化
等级:小狐 帖子:374 积分:2318 威望:0 精华:0 注册:2008/12/6 20:34:00
[求助]求当月工作日的天数代码  发帖心情 Post By:2009/5/20 14:36:00 [只看该作者]

[求助]求当月工作日的天数代码图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/5/20 16:19:00 [只看该作者]

Dim Days As Integer = Date.DaysInMonth(2008,2)
Dim Count As Integer
Dim Val As Date
For i As integer = 1 To Days
   Val = New date(2008,2,i)
   If Val.DayofWeek > 0 AndAlso Val.DayofWeek < 6 Then
      Count = Count + 1
   End If
Next
Output.Show("2008年2月的工作天数:" & Count)

最好自己做成一个自定义函数


 回到顶部