Microsoft Visual Basic 6.5忽略大小写

我正在使用Microsoft Visual Basic 6.5和Excel

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

我的问题是，我怎么写的条件来检查TxtMMM ，检查时忽略大小写敏感 ？

例如，如果用户inputTxtMMM

• 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 

Answer 2

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

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