vb计算时效问题（完成追加100分）

来源：百度知道 编辑：UC知道 时间：2024/05/30 05:38:17
希望高手能帮我把这个功能做下:
dim ntest as integer
ntest=MSHFlexGrid1.TextMatrix(ii, 17)
select case(ntest)
case 1个工作日
case 2个工作日
case 3个工作日
case 5个工作日(新项目)
case 处理完成
MSHFlexGrid1的17列“询价时效”中有这么几个值“1个工作日，2个工作日，3个工作日，5个工作日（新项目），处理完成”，还有一列（15列）"询价时间"，如果此列不为空，那么当询价时效取相应值的时候，就计算现在时间与询价时间，如果超过了规定的询价时效值，那么此行显示为红色，并显示为无效，如果值为"处理完成"则正常显示，当“询价时间”为空时，也正常显示，
思路是出来了，但是小弟不知道怎么计算差值(周末不计时)

Private Function ifweekend(ByVal dt As Date) As Boolean
Dim a
a = Format(dt, "dddd")
Select Case LCase(a)
Case "saturday"

ifweekend = True
Case "sunday"

ifweekend = True

Case Else
ifweekend = False
End Select
End Function
Private Function getDiffWorkDay(ByVal minDate1 As Date) As Integer
Dim i As Integer
Dim iCount As Integer
Dim d As Date
For d = minDate1 To Now
If ifweekend(d) = False Then
iCount = iCount + 1
End If
Next d
getDiffWorkDay = iCount - 1
End Function
or ii = 1 To rs.RecordCount
If MSHFlexGrid1.TextMatrix(ii, 15) = "" And MSHFlexGrid1.TextMatrix(ii, 17) = "处理完成" And MSHFlexGrid1.TextMatrix(ii, 17) = "" Then
Else
If getDiffWorkDay > Left(MSHFlexGrid1.TextMatrix(ii, 17), 1) Then
MSHFlexGrid1.