- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 计算每月除去周六周日后剩余的天数 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81243)
-- 发布时间：2016/2/22 16:07:00
-- 计算每月除去周六周日后剩余的天数
求助：计算每月除去周六周日后剩余的天数代码
-- 发布时间：2016/2/22 16:11:00
--
Dim y As Integer = 2016
Dim m As Integer = 2
Dim count As Integer = 0
For i As Integer = 1 To Date.DaysInMonth(2016, 2)
Dim d As Date = new Date(y, m, i)
If d.DayOfWeek <> 0 AndAlso d.DayOfWeek <> 6 Then
count += 1
End If
Next
msgbox(count)
-- 发布时间：2016/2/22 16:23:00
--
此主题相关图片如下：555.jpg
-- 发布时间：2016/2/22 16:27:00
--
DataColChanged事件
Select Case e.DataCol.name
Case "日期1", "日期2"
Dim d1 As Date = e.DataRow("日期1")
Dim d2 As Date = e.DataRow("日期2")
Dim count As Integer = 0
Do While d1 <= d2
If d1.DayOfWeek <> 0 AndAlso d1.DayOfWeek <> 6 Then
count += 1
End If
d1 = d1.AddDays(1)
Loop
e.DataRow("天数") = count
End Select
-- 发布时间：2016/2/22 16:35:00
--
你真棒！谢谢指导.
-- 发布时间：2016/3/1 9:47:00
--
此主题相关图片如下：续约.png
-- 发布时间：2016/3/1 9:56:00
--
没看懂你什么意思。
-- 发布时间：2016/3/1 9:57:00
--
又来麻烦了！想增加一各判断是否续约，若“否”打开项目的时候，不再自动提示并显示到期的产品，若“是”的话，自动插入一行，按新的签约到期日期显示到期提醒，还有碰到节假日，除了要扣除周六，周日，其他非正常工作日的天数如何处理。
-- 发布时间：2016/3/1 10:48:00
--
1、节假日问题，单独做一个节假日表，然后查询某个日期是否节假日即可；
2、不明白你说的什么自动插入一行，请上传具体例子，说明要做什么效果。