vba - 如何在VBA中测试阿拉伯语中的单词是阳性还是阴性

Question

如何在VBA中测试阿拉伯语中的单词是阳性还是阴性？

这个词是一个字符串。

男性或女性的结果应该是 True 或 False。

示例：“شمس”变成阴性

“قمر”变得男性化

这个简单的代码根本不起作用：

Sex = "M"
If Right(word, 1) = "ة" Then Sex = "F"

谢谢

标签： vbaarabic

Answer 1

如果唯一确定单词性别的是它的结尾，您可以使用选择大小写（德语的简单示例）：

Right() 中的数字决定了您要查看的字符数。

Public Function isMale(aWord As String) As Boolean
    Select Case True
        Case Right(aWord, 2) = "er"
            isMale = True
        Case Right(aWord, 2) = "in"
            isMale = False
        End Select
End Function