以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  根据备注字符日期列自动填上日期  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=103816)

--  作者：蓝蚂蚁 --  发布时间：2017/7/17 19:03:00 --  根据备注字符日期列自动填上日期 在【备注】列输入内容为：1028，则在【日期】列填上2017-02-28,备注列1028中的开头1不用理会，02表示2月份、28表示28日、年份就取系统的年份。请问老师代码如何显示，老是麻烦老师真不好意思。谢谢了。

--  作者：有点蓝 --  发布时间：2017/7/17 20:12:00 --   无法理解这种规则。3月28是怎么表示的，12月18呢

--  作者：蓝蚂蚁 --  发布时间：2017/7/17 20:25:00 --   不好意思哈 老师 打错字了 是10228 少个2了 备注实际上是这样子的 *AABB的样式 *表示1或2 AA月份两位数 BB是日的两位数

--  作者：有点蓝 --  发布时间：2017/7/17 20:40:00 --   Dim str As String = "10228" msgbox(cdate(Date.Today.Year & "-" & str.SubString(1,2) & "-" & str.SubString(3)))

--  作者：蓝蚂蚁 --  发布时间：2017/7/17 20:50:00 --   谢谢