一句like 表达式。

weiyingde

要用like判断字符串isr是否是日期形式，我用
isr = "2020年2月9日"
1、sr Like "*年*月*日*"=true
可是
2、sr like "[0-9]@年[0-9]@月[0-9]@日" =false
为什么呢，正确的表达应该是什么？

cuanju

like 不支持@。
只能用Like "*[0-9]年[0-9]月[0-9]日"，但 "2020年2月19日" 或 "2020年12月9日" 就判断不了了。无法很好解决。

weiyingde

谢谢解答，你有这方面比较详尽的资料吗？

山菊花

[0-9]表示匹配一位数字，不能匹配2020四位数。
可用：sr  like "####年*#月*#日"
判断日期还是用isdate()函数好：isdate(sr)

weiyingde

山菊花 发表于 2020-2-9 15:54
[0-9]表示匹配一位数字，不能匹配2020四位数。
可用：sr  like "####年*#月*#日"
判断日期还是用isdate() ...

谢谢山大版主指导，谢谢了。

weiyingde

山菊花 发表于 2020-2-9 15:54
[0-9]表示匹配一位数字，不能匹配2020四位数。
可用：sr  like "####年*#月*#日"
判断日期还是用isdate() ...

经测试，下面两种结果均为False
Sub test()
MsgBox "2020年2月9日" Like "#####年*#月*#日"
End Sub
Sub tt()
MsgBox "2020年2月9日" Like "#####年#月#日"
End Sub但是
IsDate("2020年2月9日")=true
看来只好这样表达了。

山菊花

4个#号

weiyingde

山菊花 发表于 2020-2-9 16:40
4个#号

测试不错。
谢谢，我看马虎了，再次谢谢。

weiyingde

山菊花 发表于 2020-2-9 16:40
4个#号

借用一下山版主的功夫，移步到
http://club.excelhome.net/thread-1520246-1-1.html
我同样求一句简洁的表达，看看能不能实现。

daibao88

Sub test()
    Dim str As String
    str = "2020年1月19日"
    MsgBox str Like "####年#月#日" Or str Like "####年##月#日" Or str Like "####年##月##日" Or str Like "####年#月##日"
End Sub