以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  文本计算  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170617)
--  作者：实话实说
--  发布时间：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类型
--  作者：实话实说
--  发布时间：2021/8/1 20:22:00
--  
请蓝老师帮我看看
--  作者：有点蓝
--  发布时间：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
--  作者：实话实说
--  发布时间：2021/8/2 3:02:00
--  
再试试

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