vba - Microsoft Visual basic 6.5 忽略大小写

Question

我正在使用 Microsoft Visual Basic 6.5 和 Excel

TxtMMM是String prompt keyyed in by user. In this case i hardcoded it as an example but it(TxtMMM）可以是“Jan”、“JAN”、“jAn”或“jan”等中的任何一个

我的问题是，我如何写入条件以检查TxtMMM, 在检查时忽略区分大小写？

例如，如果用户输入TxtMMM

• 一月
• 一月
• 日

那么它应该会返回"01"

sub casesense()    
Dim TxtMMM as String    
Dim sTxtMMM as String    
TxtMMM = "Jan"    
            If TxtMMM = "JAN" Then
                sTxtMMM = "01"
                csd = 1
            ElseIf TxtMMM = "FEB" Then
                sTxtMMM = "02"
                csd = 1
                .....
             End If
End sub

Answer 1

而不是 12 步Select为什么不

Dim TxtMMM As String
TxtMMM = "Jan"
MsgBox Format(Month(DateValue("1/" & TxtMMM & "/2013")), "00")
csd = 1

Answer 2

很简单。只需使用UCase先将TxtMM转为大写，然后比较：

    If UCase(TxtMMM) = "JAN" Then
        sTxtMMM = "01"
        csd = 1
    ElseIf UCase(TxtMMM) = "FEB" Then
        sTxtMMM = "02"
        csd = 1
        .....
     End If