[求助]关于结算起始日的求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

公司发货存在次月结的情况，并且这个次月不一定是下月1号，可以是一个月中的任何一个日期，现假定表中有三个字段，希望根据结算日自动生成结算日期

字段说明：

发货日期（日期型）

结算起始日（整数型，并且通过表事件限定了取值范围1-28）

结算日期（日期型）

样表：

发货日期结算起始日结算日期

2017-1-15 1 2017-2-1

2017-1-15 15 2017-2-15

2017-1-15 16 2017-1-16

请老师帮忙写个代码，让代码根据发货日与结算起始日自动计算出结算日期，谢谢！

老师，这个代码不对的，我上面的例子难点在于

Dim d1 As Date = "2017-1-15"
Dim d As Integer = 16
Dim d2 As Date = d1.addmonths(1)
d2 = new Date(d2.year, d2.month, d)
msgbox(d2)

这时应该返回的日期是 2017-1-16

如果Dim d1 As Date = "2017-1-15"

Dim d As Integer = 14
Dim d2 As Date = d1.addmonths(1)
d2 = new Date(d2.year, d2.month, d)
msgbox(d2)

这里返回的值是 2017-2-14

这个代码是可以了，但我实际用时是全用S elect语句中的，这样才更符合实际工作需要，请老师再帮我看看

例如有一合同表，结构包含以下字段：

合同号结算日单价

HT001 10 1

还有一个发货表，结构包含以下字段：

发货单号发货重量对应合同号发货日

DH001 100 HT001 2017-1-2

DH002 150 HT001 2017-1-15

当前日期为2017-1-20

用的是SQL数据库，数据源名称：ErpSql 在窗口中有一table表及一个查询应收款的Button，希望点击这个Button将查询的数据写入这个table并得到如下结果：

发货单号合同号发货重量发货金额应收金额

DH001 HT001 100 100 100 因为此笔发货在当月10号之前，根据合同付款日应该在2017-1-10，所以客户应该付款了

DH002 HT001 150 150 0 因为此笔发货在当月10号之后，根据合同付款日应该在2017-2-10，所以客户暂时不用付款

这种情况应该用子查询得到应收金额，如何将楼上的代码改写成子查询，我对SQL语句实在能力有限，请老师帮忙写下，万分感谢！

[此贴子已经被作者于2018/2/1 9:51:23编辑过]

老师，day(发货日) >= 结算日这个条件是不行的，就以上面例子为例

发货日是 2017-1-15

结算日是每月10号

当前日期为2017-1-20时，上面的条件是成立的，但如果客户一直不付钱，当前的日期到了2017-2-20，哪这个客户就要付钱了，也就是说要这样判断：

day(发货日) >= 结算起始日期

这个结算起始日期又是通过4楼的代码算出来的，所以现在的问题是如何把4楼的代码所实现的功能搬到S elect中，我就是在这里不会

是应该加一列，但不是加是否已付，而是用4楼的代码放在表事件中自动计算出结算起始日期，这样的话就老师的子查询语句就行了

主题：[求助]关于结算起始日的求助