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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]科目代码日期计算

共有1900人关注过本帖树形打印复制链接主题：[求助]科目代码日期计算

yangsion

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

加好友

发短信

等级：幼狐帖子：114 积分：1628 威望：0 精华：0 注册：2013/6/11 19:13:00

[求助]科目代码日期计算 发帖心情

Post By：2017/6/26 16:41:00 [只看该作者]

请问一下如附件，科目代码怎么改可以算出工期，

开始日期为子项目最小日期

完成日期为子项目最大日期

Dim StartDate As Date = dt.Compute("Min(开始日期)", "开始日期 IS NOT NULL")
Dim EndDate As Date = dt.Compute("Max(预计日期)","预计日期 IS NOT NULL")
不知道怎么结合起来

下载信息 [文件大小：下载次数： ]
点击浏览该文件:用科目代码算出总项目工期.table

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/26 17:16:00 [只看该作者]

Dim kmdm As String = "1001"
Dim dt As DataTable = DataTables("会计科目")
Dim filter As String = "开始日期 IS NOT NULL and 科目代码 like '" & kmdm & "%'"
Dim StartDate As Date = dt.Compute("Min(开始日期)", filter)
Dim EndDate As Date = dt.Compute("Max(完成日期)", filter)
msgbox(startdate & " " & Enddate)
Dim sp As TimeSpan = Enddate - startdate
msgbox(sp.TotalDays)

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

主题：[求助]科目代码日期计算