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

• JAN
• 一月
• 一月

然后它会回来 "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