VBA正则表达式

目的，想要将日期变成YYYYMMDD的格式
不喜欢讲理论，直接看代码

Public Function yestoday()
    Set regx = CreateObject("vbscript.regexp")
    yesterday = Date - 1
    regx.Pattern = "(\d{4})-(\d{2})-(\d{2})"
    regx.Global = True
    Set objMH = regx.Execute(yesterday)
    If objMH.Count > 0 Then
        With objMH(j)
             yestoday = .submatches(0) & .submatches(1) & .submatches(2)
        End With
    End If
    Set regx = Nothing
End Function

关键点在regx.Pattern = “(\d{4})-(\d{2})-(\d{2})”，关于正则表达式的写法，请参考

效果