以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]字符转换 成日期  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128288)
--  作者：zcgmxf
--  发布时间：2018/12/3 11:34:00
--  [求助]字符转换 成日期
老师，印象中有将下面的字符转换成日期格式的函数的，可以转换成日期格式吗？谢谢！

    开发者 2018-12-03 07:36:08  转换成  2018-12-03
--  作者：有点甜
--  发布时间：2018/12/3 13:11:00
--  
Dim str = "开发者 2018-12-03 07:36:08"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9]{4}-[0-9]{1,2}-[0-9]{1,2}")
If mc.count > 0 Then
    msgbox(mc(0).value)
End If