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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文本框中日期的计算

共有4047人关注过本帖树形打印复制链接主题：文本框中日期的计算

实话实说

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

加好友

发短信

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

文本框中日期的计算 发帖心情

Post By：2021/7/17 19:26:00 [只看该作者]

Dim d1 As WinForm.DateTimePicker = e.form.controls("开始日期")

Dim d2 As WinForm.DateTimePicker = e.form.controls("结束日期")

Dim d3 As WinForm.DateTimePicker = e.form.controls("今天日期")

Dim d4 As WinForm.TextBox = e.form.controls("项目周期")

Dim d5 As WinForm.NumericComboBox = e.form.controls("剩余天数")

现在要计算：d2 = d1+d4 d5 = d2-d3

d2是日期，d5是天数

[此贴子已经被作者于2021/7/18 9:37:40编辑过]

实话实说

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

加好友

发短信

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

Post By：2021/7/18 16:50:00 [只看该作者]

以下代码为什么不行？

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

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

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

d2 = d1.AddDays(d3)

有点蓝

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

加好友

发短信

等级：超级版主帖子：111414 积分：567140 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/7/18 21:00:00 [只看该作者]

d3有值吗？

msgbox(d3)

d2是一个变量，如果要显示到控件里，要重新赋值回控件

d2 = d1.AddDays(d3)

e.form.controls("结束日期").Value = d2

13568406997

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

加好友

发短信

等级：二尾狐帖子：503 积分：3486 威望：0 精华：0 注册：2021/8/9 10:30:00

Post By：2021/8/9 11:04:00 [只看该作者]

时段的类型为TimeSpan，所谓时段，就是一段时间范围。

定义一个新的TimeSpan的语法为：

New TimeSpan(days, hours, minutes, seconds, milliseconds)
New TimeSpan(days, hours, minutes, seconds)
New TimeSpan(hours, minutes, seconds)

days:          天数
hours:         小时数
minutes:       分数
seconds:       秒数
milliseconds: 毫秒数

例如：

Dim tp1 As New TimeSpan(20,13,45) '20小时13分45秒
Dim tp2 As New TimeSpan(1,20,13,45) '1天20小时13分45秒
Dim tp3 As New TimeSpan(1,20,13,45,200) '1天20小时13分45秒200毫秒
Dim tp4 As New TimeSpan(0,0,0,200) '200秒
Dim tp5 As New TimeSpan(0,0,0,0,200) '200毫秒

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

主题：文本框中日期的计算