的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）可以是任何 「月」， 「簡」， 「月」 或 「月」 等

的

我的問題是，我如何寫條件來檢查TxtMMM，到忽略區分大小寫而檢查？

E.g如果用戶輸入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

這很簡單。只需使用Ucase將轉換TxtMM首先要大寫，然後比較：

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

Answer 2

，而不是一個12步Select爲什麼不

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