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


  共有3797人关注过本帖树形打印复制链接

主题：文本计算
帅哥哟，离线，有人找我吗？
实话实说
 小大  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


加好友 发短信
等级：超级版主 帖子：110762 积分：563742 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/8/1 21:01:00 [只看该作者]

学会调试

Dim d1 As Date = Date.Today
msgbox("d1=" & d1)
Dim d2 As Date = e.form.controls("开始日期").Value 
msgbox("d2=" & d2)
Dim d3 As Integer = e.form.controls("项目周期").Value  
msgbox("d3=" & d3)
e.form.controls("结束日期").Value = d1.AddDays(d3)
msgbox("结束日期=" & e.form.controls("结束日期").Value)
msgbox("d4=" & d4)
Dim t As TimeSpan = d4 - d1
e.form.controls("剩余天数").text = t.Days
msgbox("剩余天数=" & t.Days)
msgbox("已过天数=" & d3 - t.Days)
e.Form.Controls("已过天数").text = d3 - t.Days
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询