以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何统计本月的金额数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160941)

--  作者:lg_yaolong
--  发布时间:2021/2/26 22:19:00
--  如何统计本月的金额数据
\'当日入库金额
Dim mdt3 As Date = Date.Today.AddDays(0)
Dim cnt15 As Integer = DataTables("入库").Compute("sum(入库金额)","日期 = #" & mdt3 & "#")
  如何用代码统计当月的入库金额?

--  作者:有点蓝
--  发布时间:2021/2/27 9:13:00
--  
参考:http://www.foxtable.com/webhelp/topics/2720.htm

Dim y As Integer = Date.Today.year \'指定年份
Dim 
m As Integer = Date.Today.month \'指定月份
Dim 
dt1 As New Date(ym1)
Dim 
dt2 As New Date(ymDate.DaysInMonth(y,m)) \'获取该月的最后一天

Dim cnt15 As Integer = DataTables("入库").Compute("sum(入库金额)","日期 >= #" & dt1 & "# and 日期 <= #" & dt2 & "#")

--  作者:lg_yaolong
--  发布时间:2021/3/1 20:52:00
--  
谢谢