Foxtable(狐表)用户栏目专家坐堂 → date与date的相加


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

主题:date与date的相加

帅哥,在线噢!
lur320
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1030 积分:8973 威望:0 精华:0 注册:2015/8/12 16:28:00
date与date的相加  发帖心情 Post By:2016/8/12 11:17:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:capture.png
图片点击可在新窗口打开查看
如图,

1是date

2是date

3是整数

 

如何在datachanged里面写代码来计算1+2。

 

1+3是比较简单的,用addhours就可以。但是在日前后面加上几点钟开始,这两个data的向加就不会了。


 回到顶部
帅哥,在线噢!
lur320
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1030 积分:8973 威望:0 精华:0 注册:2015/8/12 16:28:00
  发帖心情 Post By:2016/8/12 11:18:00 [显示全部帖子]

错了,停线结束的时刻是1+2+3

 


 回到顶部
帅哥,在线噢!
lur320
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1030 积分:8973 威望:0 精华:0 注册:2015/8/12 16:28:00
  发帖心情 Post By:2016/8/12 11:22:00 [显示全部帖子]

用 & 也报错:

If e.DataRow.IsNull("预期停线日期") Or e.DataRow.IsNull("预期停线耗时") Or e.DataRow.IsNull("预期停线时刻") Then
    e.DataRow("停线开始")= Nothing
   
Else
    'MessageBox.Show("")
    Dim a As Date=e.DataRow("预期停线日期")
Dim b As Date = e.DataRow("预期停线时刻")
Dim c As Date

e.DataRow("停线开始")=c & b
   
End If

 


 回到顶部
帅哥,在线噢!
lur320
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1030 积分:8973 威望:0 精华:0 注册:2015/8/12 16:28:00
  发帖心情 Post By:2016/8/12 11:26:00 [显示全部帖子]

代码错了。。。。。发现要加一个空格可以连接

 

e.DataRow("停线开始")=a & " " & b


 回到顶部