如何在vba中检查字符串是否只包含数字

Question

我想从像这样的字符串中解析出年份信息

$8995 四月 18 2008 本田思域混合动力 $8995 (奥勒姆) 图片地图汽车和卡车 - 由车主

由于我在线检索该字符串，因此有时年份元素不在同一位置。我这样做的方法是使用 split 函数按空格分割字符串，然后检查数组的每个节点是否仅包含数字。

但是，当我使用函数 IsNumeric 时，它也返回“$8995”节点。

检查字符串是否只包含数字，没有“$”，没有“.”，而不包含其他任何内容的好方法是什么？

或者在我的情况下，是否有更好的方法来检索年份信息？

谢谢。

Answer 1

Like这可以使用运算符作为单行代码来完成

Function StringIsDigits(ByVal s As String) As Boolean
    StringIsDigits = Len(s) And (s Like String(Len(s), "#"))
End Function