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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文本计算

共有3678人关注过本帖树形打印复制链接主题：文本计算

实话实说

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

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

文本计算

Post By：2021/8/1 18:14:00 [显示全部帖子]

以下代码已过天数计算结果是0，不知错在哪？

Dim d1 As Date = Date.Today

Dim d2 As Date = e.form.controls("开始日期").Value

Dim d3 As Integer = e.form.controls("项目周期").Value

e.form.controls("结束日期").text = d1.AddDays(d3)

Dim d4 As Date = e.form.controls("结束日期").Value

Dim t As TimeSpan = d4 - d1

e.form.controls("剩余天数").text = t.Days

e.Form.Controls("已过天数").text = d3 - val(e.Form.Controls("剩余天数").text)

项目周期是NumericComboBox类型，剩余天数和已过天数是TextBox类型

实话实说

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

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2021/8/1 20:22:00 [显示全部帖子]

请蓝老师帮我看看

实话实说

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

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2021/8/2 3:02:00 [显示全部帖子]

再试试

[此贴子已经被作者于2021/8/2 4:00:23编辑过]

主题：文本计算