Foxtable(狐表)用户栏目专家坐堂 → 根据备注字符日期列自动填上日期


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

主题:根据备注字符日期列自动填上日期

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/7/17 20:12:00 [显示全部帖子]

无法理解这种规则。3月28是怎么表示的,12月18呢

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/7/17 20:40:00 [显示全部帖子]

Dim str As String = "10228"
msgbox(cdate(Date.Today.Year & "-" & str.SubString(1,2) & "-" & str.SubString(3)))

 回到顶部