以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自己实在弄不了，请帮忙解决一下。谢谢！！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95097)
--  作者：yigusheng
--  发布时间：2017/1/10 11:26:00
--  自己实在弄不了，请帮忙解决一下。谢谢！！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:2016下半年早晚自习.zip

天数计算为0的问题
[此贴子已经被作者于2017/1/10 11:26:44编辑过]
--  作者：有点色
--  发布时间：2017/1/10 11:37:00
--  

你的计算逻辑是什么？你要计算什么？

 

For Each tt As DataRow In DataTables("时间表").DataRows
    Dim d1 As Date = tt("开始时间")
    Dim d2 As Date = tt("结束时间")
    Dim d3 As Date = d1
    Dim w As Integer = 0
   
    Do While d3<= d2
        Select Case d3.DayOfWeek
            Case 1,2,3,4,5
                w = w +1
        End Select
        d3 =d3.AddDays(1)
    Loop
    tt("天数") = w
Next
--  作者：有点色
--  发布时间：2017/1/10 14:13:00
--  

 你本来的代码就没问题啊。

 


For Each tt As DataRow In DataTables("时间表").DataRows
    Dim d1 As Date = tt("开始时间")
    Dim d2 As Date = tt("结束时间")
    Dim d3 As Date = d1
    Dim w1 As Integer = 0
    Dim w2 As Integer = 0
    Dim w3 As Integer = 0
    Dim w4 As Integer = 0
    Dim w5 As Integer = 0
   
    Do While d3<= d2
        Select Case d3.DayOfWeek
            Case 1
                w1 = w1 +1
            Case 2
                w2 = w2 +1
            Case 3
                w3 = w3 +1
            Case 4
                w4 = w4 +1
            Case 5
                w5 = w5 +1
        End Select
        d3 =d3.AddDays(1)
    Loop
   
    Select Case tt("星期")
        Case "星期一"
            tt("天数") = w1
        Case "星期二"
            tt("天数") = w2
        Case "星期三"
            tt("天数") = w3
        Case "星期四"
            tt("天数") = w4
        Case "星期五"
            tt("天数") = w5
    End Select
Next