Foxtable(狐表)用户栏目专家坐堂 → 关于日期转化


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

主题:关于日期转化

美女呀,离线,留言给我吧!
做自己
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:485 积分:3750 威望:0 精华:0 注册:2017/8/17 17:47:00
关于日期转化  发帖心情 Post By:2018/2/12 19:39:00 [只看该作者]

17010101 这个可以转换为日期吗?应该是17年10月1日 01个记录

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


加好友 发短信
等级:六尾狐 帖子:1242 积分:9374 威望:0 精华:0 注册:2013/5/12 9:22:00
  发帖心情 Post By:2018/2/12 19:58:00 [只看该作者]

Dim s As String = "17010101"
s = s.SubString(0,6)
s = s.Replace("0"," 0")
Dim d As Date = CDate(s)
Output.Show(d)

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


加好友 发短信
等级:超级版主 帖子:105965 积分:538900 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/12 20:25:00 [只看该作者]

Dim s As String = "17010101"
s = "20" & s.SubString(0,6)
s = s.Insert(6,"-").Insert(4,"-")
Dim d As Date = CDate(s)
Output.Show(d)

 回到顶部
美女呀,离线,留言给我吧!
做自己
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:485 积分:3750 威望:0 精华:0 注册:2017/8/17 17:47:00
  发帖心情 Post By:2018/2/13 20:44:00 [只看该作者]

导入信息提示这个咋回事,导入Excel
[此贴子已经被作者于2018/2/13 20:44:54编辑过]

 回到顶部
美女呀,离线,留言给我吧!
做自己
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:485 积分:3750 威望:0 精华:0 注册:2017/8/17 17:47:00
  发帖心情 Post By:2018/2/13 20:45:00 [只看该作者]

提示这个问题
图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:超级版主 帖子:105965 积分:538900 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/13 20:49:00 [只看该作者]

按钮完整代码贴出来

 回到顶部
美女呀,离线,留言给我吧!
做自己
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:485 积分:3750 威望:0 精华:0 注册:2017/8/17 17:47:00
  发帖心情 Post By:2018/2/13 20:51:00 [只看该作者]

关于如何将02 09 03按照空格分开

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


加好友 发短信
等级:超级版主 帖子:105965 积分:538900 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/13 20:54:00 [只看该作者]

想解决问题请贴出5楼出错事件里面的代码!!

 回到顶部
美女呀,离线,留言给我吧!
做自己
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:485 积分:3750 威望:0 精华:0 注册:2017/8/17 17:47:00
  发帖心情 Post By:2018/2/13 21:05:00 [只看该作者]

那个问题解决了老师,是因为D盘没有文件,我现在想解决这个问题,就是把02 09 03 转换成三个字符串,分别是02 03 09 ,09 02 03,09 03 02,03 02 09,03 09 02.就是将这个字符串三个可以颠倒

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


加好友 发短信
等级:超级版主 帖子:105965 积分:538900 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/13 21:44:00 [只看该作者]

Dim ss() As String = "02 09 03".Split(" ")
array.sort(ss)
Output.Show(ss(0))
Output.Show(ss(1))
Output.Show(ss(2))

 回到顶部
总数 14 1 2 下一页