以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何把符合一个范围内的日期时间型转换成一个整数型  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=57264)
--  作者：lijin951
--  发布时间：2014/9/22 10:13:00
--  [求助]如何把符合一个范围内的日期时间型转换成一个整数型
有订单表A，A中有字段‘订单交期\'
如何查询‘订单交期’符合在本周范围内的数据，然后把这些数据转换成整数。


想实现的是，动态提示本周内有多少订单需要交
--  作者：有点甜
--  发布时间：2014/9/22 10:17:00
--  

参考代码

 

Dim y As Integer = Date.Today.Year
Dim w As Integer = Date.Today.DayOfWeek \'算出今天是星期几
Dim dt1 As Date = Date.Today.AddDays(-w) \'获取本周的第一天
Dim dt2 As Date = Date.Today.AddDays(6 - w) \'获取本周的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"

Dim sum As Double = Tables("表A").Compute("sum(数量)", Filter)
msgbox(sum)

[此贴子已经被作者于2014-9-22 10:16:56编辑过]
--  作者：Bin
--  发布时间：2014/9/22 10:18:00
--  
利用 Compute http://www.foxtable.com/help/topics/0393.htm
--  作者：lijin951
--  发布时间：2014/9/22 10:36:00
--  
我的代码是这样的，想统计符合这个时间段的行数

Dim a As Integer = Date.Today.DayOfWeek
Dim dt1 As Date = Date.Today.AddDays(-a)
Dim dt2 As Date = Date.Today.AddDays(7 - a)
Dim filter As String = "订单交期 >= #" & dt1 & "# and 订单交期 <= #" & dt2 & "#"
Dim sum As Integer = DataTables("订单主表").Compute("sum(DataTables("订单主表").DataRow)",filter) 
--  作者：有点甜
--  发布时间：2014/9/22 10:37:00
--  
Dim count As Integer = DataTables("订单主表").Compute("count(_Identify)",filter) 
msgbox(count)