以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么从订单编号中计算日期  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77109)

--  作者:JPG7
--  发布时间:2015/11/11 10:13:00
--  怎么从订单编号中计算日期

HE15101310蓝色——年,红色——月,绿色——日
FXHE15101311

--  作者:大红袍
--  发布时间:2015/11/11 10:18:00
--  

Dim s As String = "HE15101310"
s = System.Text.RegularExpressions.Regex.Replace(s, "[a-zA-Z]*", "")
msgbox(s.substring(0,2))
msgbox(s.substring(2,2))
msgbox(s.substring(4,2))

--  作者:JPG7
--  发布时间:2015/11/11 10:23:00
--  
谢谢