| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 日期时间提取 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186449) |
| -- 作者：朱女士 -- 发布时间：2023/5/4 12:33:00 -- 日期时间提取 老师您好！ 我的数据表中的“日期时间”字段为timelongtime型，想把具体数据取出来后，要精确到“分”后再匹配条件计算。就是说现在表中提取的时间是精确到秒的，在下面的计算中，我要将”开工时间“的精确到分就行，换句话说“日期相同，时间”分“相同就视为符合计算条件。ary(1)是字符型的，我会截取字符串。现在的格式：2022-12-03 08:14:11，要保持字段中的原数据格式，只是计算时，不需要比对”秒“，但我不知道对【开工时间】 字段怎么格式化， Arys = DataTables("实时工序计算表").GetValues("bs|开工时间") For Each Ary As String() In Arys Dim zzl As Double = DataTables("实时工序计算表").Compute("sum(重量)", "bs=\'" & Ary(0) & "\'and 开工时间= #" & Ary(1) & "#") drs = DataTables("实时工序计算表").Select("[bs]=\'" & Ary(0) & "\'and 开工时间 = #" & Ary(1) & "#") For Each dr As DataRow In drs If dr IsNot Nothing Then Dim t1 As String = Left(ary(1), 17) & "00" Dim zzl As Double = DataTables("实时工序计算表").Compute("sum(重量)", "bs=\'" & Ary(0) & "\'and 开工时间= #" & Ary(1) & "#") 谢谢！ |
| -- 作者：有点蓝 -- 发布时间：2023/5/4 13:29:00 -- 参考：http://www.foxtable.com/webhelp/topics/2720.htm 改为类似这种即可：某日期>=#2022-12-03 08:14:00# and 某日期<#2022-12-03 08:15:00#
|