主题：如何计算周别

For Each dr As DataRow In DataTables("表名").DataRows
    Dim  d As Date = dr("日期列名")
    If d = Nothing Then
        dr("周别") = Nothing
    Else
        Dim  n As Integer = DateAndTime.DatePart(DateInterval.WeekOfYear, d, FirstDayOfWeek.Monday )
        dr("周别") = n
    End If
Next

 

 谢谢,这个根据2016-05-28 14:43:17
计算出这个时间是那个时段:

2016-03-03 12:00-12:29     时段为 12:00

2016-03-03 12:30-12:59     时段为 12:30

依这样的格式,列名<进入系统时间>

For Each dr As DataRow In DataTables("表名").DataRows
    Dim  d As Date = dr("日期列名")
    If d = Nothing Then
        dr("周别") = Nothing
    Else
        Dim  n As Integer = DateAndTime.DatePart(DateInterval.WeekOfYear, d, FirstDayOfWeek.Monday )
        dr("周别") = n
       
        If d.Minute >= 30 Then
            d = new Date(d.year, d.Month, d.day, d.hour, 30,0)
        Else
            d = new Date(d.year, d.Month, d.day, d.hour, 0, 0)
        End If
        dr("进入系统时间") = d
    End If
Next

 你好，还是不对，周别计算出来了，时段还是没有出来
时间列:2016-03-03 14:30:20
1.根据这个时间计算出周别列,每个星期一是第一天


2.根据设个时间计算出时段,时段分类

2016-03-03 12:00-12:29     时段为 12:00

2016-03-03 12:30-12:59     时段为 12:30

没看懂你什么意思，上传具体foxtable例子，说明要的效果。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:美味管理系统.zip

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:美味管理系统.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:美味管理系统.zip

1、

 

If e.DataCol.name = "通话时长" Then
    If e.DataRow.IsNull("通话时长") Then
        e.DataRow("通话时长秒") = Nothing
    Else
        Dim d As Date = e.NewValue
        e.DataRow("通话时长秒") = 3600*d.Hour + 60*d.Minute + d.Second
    End If
End If

 

2、

 

方法一：设置关联，引用父表数据

 

http://www.foxtable.com/help/topics/0091.htm

 

http://www.foxtable.com/help/topics/0106.htm

 

方法二：http://www.foxtable.com/help/topics/1453.htm