Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共7 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:日期计算

1楼
admin22327 发表于:2024/4/3 8:43:00

这个表,我要求找到最后一次服务的某客户,从开始服务的那天计算,365天后自动增加一行,进行收费,这个代码怎么写,求助,谢谢


图片点击可在新窗口打开查看此主题相关图片如下:财务.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2024/4/3 8:45:04编辑过]
2楼
有点蓝 发表于:2024/4/3 9:31:00
请举例具体的数据,说明一下最终的效果
3楼
admin22327 发表于:2024/4/3 9:38:00
比如A客户,开始服务期限是2023年10月10日,我们收取服务3000,到2024年10月10日,2025年10月10日,2026年10月10日……,每年都收取3000服务费,每年到期前10天有个提醒,到期自动增加一行,依次类推,有的客户比如收取2年后,不在服务,我们填入结束服务日期,这类客户后期不在提醒,不在增加一行
4楼
admin22327 发表于:2024/4/3 9:41:00

 

[此贴子已经被作者于2024/4/3 9:41:38编辑过]
5楼
有点蓝 发表于:2024/4/3 10:01:00
datacolchanged事件

if  e.datacol.name = "开始服务日期" then
if e.datarow.isnull("结束服务日期") andalso if e.datarow.isnull("开始服务日期") = false then
dim d as date = e.datarow("开始服务日期") 
if d.addyears(1) = date.today then
dim dr as datarow = e.datatable.addnew
dr("开始服务日期") = date.today
dr("
客户名称") = e.datarow("客户名称") 
end if
end if
end if

每天打开项目重置一次列
6楼
admin22327 发表于:2024/4/3 10:13:00
重置列没有反应哈
7楼
有点蓝 发表于:2024/4/3 10:15:00
开始服务日期没有符合要求的数据,比如今天是2024-04-03,那么要开始服务日期是2024-03-03的才会增加一行
共7 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02539 s, 2 queries.