Foxtable(狐表)用户栏目专家坐堂 → 日期格式转换为数字类型


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

主题:日期格式转换为数字类型

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


加好友 发短信
等级:幼狐 帖子:134 积分:1037 威望:0 精华:0 注册:2014/12/15 10:51:00
日期格式转换为数字类型  发帖心情 Post By:2015/10/29 11:13:00 [只看该作者]

请教各位老师:我想把当天日期转换为数值格式类型的,请问该如何转换
比如:2015/10/29 11:10:22 转换为对应的数字,比如说42306.4655324074
[此贴子已经被作者于2015/10/29 11:14:13编辑过]

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/29 11:15:00 [只看该作者]

比如

 

msgbox(format(date.now, "yyyyMMddHHmmss"))


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/29 11:19:00 [只看该作者]

或者

 

Dim d As Double = Date.now.Ticks
msgbox(d)
Dim dt As Date = new DateTime(d)
msgbox(dt)


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


加好友 发短信
等级:幼狐 帖子:134 积分:1037 威望:0 精华:0 注册:2014/12/15 10:51:00
  发帖心情 Post By:2015/10/29 11:22:00 [只看该作者]

请问这样怎么就不行了呢?我想得到的是带时分秒的信息呢


Dim cmd As New SQLCommand
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()
Dim d As Double = dt
msgbox(d)

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/29 11:25:00 [只看该作者]

Dim d As Double = dt.ticks
msgbox(d)

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


加好友 发短信
等级:幼狐 帖子:134 积分:1037 威望:0 精华:0 注册:2014/12/15 10:51:00
  发帖心情 Post By:2015/10/29 12:46:00 [只看该作者]

可用,谢谢

 回到顶部