[求助]关于某日期与不同时段日期对比的判断 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于某日期与不同时段日期对比的判断

共有3010人关注过本帖树形打印复制链接主题：[求助]关于某日期与不同时段日期对比的判断

polo_luo

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：111 积分：833 威望：0 精华：0 注册：2012/2/13 1:45:00

[求助]关于某日期与不同时段日期对比的判断 发帖心情

Post By：2018/6/15 11:43:00 [显示全部帖子]

求助用代码计算出利息计算明细

从利率表的“利率更改日期”列取得日期

用个人借款表的当前行存款日期对比利率表的“利率更改日期”列的日期，逐行以年为间隔列出每行，

如果利息计算的“结束时间”列的相应行日期大于利率表的“利率更改日期”列的相应期间日期，即等于利率表的“利率更改日期”列的相应期间日期

如EXCEL图的第5行，因为2004-2-10加1年后是2005-2-9，但因为利息表的变更日期为2004-5-1，所以不能是2005-2-9而改为2004-4-30. 同理第18行也是要少于利率表变更日期2017-4-1，所以该行改为2017-3-31

polo_luo

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：111 积分：833 威望：0 精华：0 注册：2012/2/13 1:45:00

Post By：2018/6/15 11:46:00 [显示全部帖子]

相关表截图

polo_luo

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：111 积分：833 威望：0 精华：0 注册：2012/2/13 1:45:00

Post By：2018/6/15 11:48:00 [显示全部帖子]

此主题相关图片如下：三表.png

polo_luo

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：111 积分：833 威望：0 精华：0 注册：2012/2/13 1:45:00

Post By：2018/6/15 11:50:00 [显示全部帖子]

此主题相关图片如下：qq图片20180615114623.png

EXCEL图

polo_luo

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：111 积分：833 威望：0 精华：0 注册：2012/2/13 1:45:00

Post By：2018/6/15 11:55:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3_201806151151.zip

polo_luo

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：111 积分：833 威望：0 精华：0 注册：2012/2/13 1:45:00

Post By：2018/6/15 17:37:00 [显示全部帖子]

非常非常感谢版主

这好些复杂，需要消化

用按钮测试上面代码，出现：

NET Framework 版本：2.0.50727.8784

Foxtable 版本：2018.3.9.1

错误所在事件：窗口,筛选树,Button4,Click

详细错误信息：

未将对象引用设置到对象的实例。

但利息计算明细还是出来了。

此主题相关图片如下：qq图片20180615172938.png

但最后一行的日期去到2019年了，应该不能超过今天或归还日期列的日期

第二笔的利息明细没有出来

polo_luo

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：111 积分：833 威望：0 精华：0 注册：2012/2/13 1:45:00

Post By：2018/6/19 10:10:00 [显示全部帖子]

给我感觉是炉火纯青，行云流水

三个循还嵚套，干净利落，很经典

for each

do while

find

select

等的运用熟练

主要是帮助文件没有用foxtable对上述几个语句的专项使用教程，这个直接可以做教程用了图片点击可在新窗口打开查看

polo_luo

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：111 积分：833 威望：0 精华：0 注册：2012/2/13 1:45:00

Post By：2018/6/19 10:18:00 [显示全部帖子]

以下是引用有点甜在2018/6/15 11:55:00的发言：

思路：从开始日期一年一年累加生成每一行数据。累加一年之后，查找当年是否有利率修改（有多少次修改就增加多少行），然后开始日期、结束日期改变一下即可。

不会做请上传具体foxtable项目。

给你看看菜鸟写的代码

下载信息 [文件大小：下载次数： ]
点击浏览该文件:菜鸟代码.txt

主要是太长了，超出贴子内容，只能出TXT文件了

polo_luo

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：111 积分：833 威望：0 精华：0 注册：2012/2/13 1:45:00

Post By：2018/6/26 17:45:00 [显示全部帖子]

此主题相关图片如下：qq图片20180626173519.png

还是日期对比

如图

目的是把个人借款表的记账时间对应会计出纳表时期输入相应的开单人，收款人，记账会计，记账出纳

但这个没有默认属性，无法被索引，是哪里问题，

代码应该怎么写

polo_luo

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：111 积分：833 威望：0 精华：0 注册：2012/2/13 1:45:00

Post By：2018/6/26 17:47:00 [显示全部帖子]

Dim dt1 As DataTable = DataTables("个人借款")

Dim dt2 As DataTable = DataTables("会计出纳")

For Each dr As DataRow In dt2.Select("")

Dim sj As Date = dt2("时间")

Dim kj As String = dt2("会计")

Dim cn As String = dt2("出纳")

For Each drs As DataRow In dt1.Select("")

Dim jjsj As Date = dt1("记账时间")

Dim ckrc As Date = dt1("存款日期")

Dim ghrc As Date = dt1("归还日期")

Dim skr As String = dt1("收款人")

Dim kdr As String = dt1("开单人")

Dim jjkj As String = dt1("记账会计")

Dim jjcn As String =dt1("记账出纳")

If jjsj>= sj Then '如果记账时间大于会计出纳表的时间

jjkj = kj '那么个人借款表记账会计等于会计出纳表的会计

End If

下一主题 >> << 上一主题

总数 17 1 2 下一页

主题：[求助]关于某日期与不同时段日期对比的判断