Foxtable(狐表)用户栏目专家坐堂 → 关于窗口日期时间控件的一个问题


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

主题:关于窗口日期时间控件的一个问题

帅哥哟,离线,有人找我吗?
czy66ds
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1684 积分:16374 威望:0 精华:0 注册:2013/7/31 13:03:00
关于窗口日期时间控件的一个问题  发帖心情 Post By:2020/12/28 14:01:00 [只看该作者]

假设:
Dim DTP1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
那么,DTP1.value 是什么类型的值?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107739 积分:548028 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/28 14:04:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
czy66ds
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1684 积分:16374 威望:0 精华:0 注册:2013/7/31 13:03:00
  发帖心情 Post By:2020/12/28 14:08:00 [只看该作者]

那么DTP1.value是date类型的吗?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107739 积分:548028 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/28 14:35:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
czy66ds
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1684 积分:16374 威望:0 精华:0 注册:2013/7/31 13:03:00
  发帖心情 Post By:2020/12/28 16:15:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目7.foxdb

既然DTP1.value的数据类型为date,
为什么计算时段天数代码如下写就不行呢?
Dim DTP1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim d1 As Date = # 12/20/2020 #
Dim t As TimeSpan = d1 -  DTP1.Value
Dim d As Double = Math.Abs(t.TotalDays)
MessageBox.Show(d & "天")





 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107739 积分:548028 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/28 16:50:00 [只看该作者]

语法问题,不支持显示转换。虽然实际类型是date,但是DTP1.value属性定义的是object类型

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107739 积分:548028 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/28 16:52:00 [只看该作者]

一个很简单的测试:
Dim DTP1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
msgbox(DTP1.Value.Gettype().fullname)

 回到顶部