以文本方式查看主题

-  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=169535)

--  作者:admin22327
--  发布时间:2021/6/20 0:33:00
--  时段计算
根据这样一个表格,要比较本季度末和上季度末应交个人所得税的差额,代码怎么弄呢,谢谢
图片点击可在新窗口打开查看此主题相关图片如下:1624120016(1).png
图片点击可在新窗口打开查看
[此贴子已经被作者于2021/6/20 0:34:23编辑过]

--  作者:有点蓝
--  发布时间:2021/6/20 20:16:00
--  
比如日期为:2021-5-13,那么本季度的时间范围就是:2021-4-1~2021-6-30,按日期排序找出这个范围之内的最后一天的数据就是本季度末的数据

dim d as date = "05/13/2021"
dim d1 as date
if d.month >= 1 andalso d.month <= 3 then
d1 = new date(d.year,1,1)
elseif d.month >= 4 andalso d.month <= 6 then
d1 = new date(d.year,4,1)
....
end if
dim dr as datarow = datatables("表A").find("日期 >=#" & d1 & "# and 日期 <#" & d1.addmonths(3) & "#","日期 desc")

dr就是这个范围之内的最后一天的数据
d1往前推3个月就是上一季度的第一天,同样的方法计算即可