以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码如何判断季度？或如何利用季度总和？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96923)
--  作者：叶夜青
--  发布时间：2017/3/2 14:44:00
--  代码如何判断季度？或如何利用季度总和？
我现在是代码要把季度总和之类的东西拿来用，

1、要是有一个时间，我如何用代码来判断它属于几季度？
2、或者用汇总功能得到各季度总和是很方便，但代码怎么把已经汇总来的季度总和拿来用？
[此贴子已经被作者于2017/3/2 14:44:54编辑过]
--  作者：有点色
--  发布时间：2017/3/2 15:47:00
--  

1、根据时间的月份，不就知道季度了？

 

2、日期的处理，参考

 

http://www.foxtable.com/webhelp/scr/2720.htm

 

3、具体问题，做例子发上来
--  作者：叶夜青
--  发布时间：2017/3/2 16:46:00
--  
就是首先需要一个项目各季度的金额总和，

（虽然用汇总模式能很容易得到）

然后根据各季度的总和要进行一些很复杂的计算（所以我想到要用代码）
--  作者：有点色
--  发布时间：2017/3/2 18:56:00
--  

 统计某个项目，某个季度的代码如下

 

Dim y As Integer = 2011 \'指定年份
Dim q As Integer = 2 \'指定季度
Dim xm As String = "项目1"

Dim dt1 As New Date(y, 3 * (q - 1) + 1, 1) \'获取该季度的第一天
Dim dt2 As Date = Dt1.AddMonths(3)
Dim Filter As String
Filter = "项目 = \'" & xm & "\' and 日期 >= #" & dt1 & "# And 日期 < #" & dt2 & "#"
Dim je As Double = Tables("订单").compute("sum(金额)", filter)
msgbox(je)