小吳 VBQA 程式設計討論

以下函數給你參考(初步驗証都正確,但不確定百分之百正確) Public Function CardType(ByVal CardNumber As String) As String '由信用卡號判別信用卡別 '傳回:　"VISA"　"MASTER"　"A.E."　"JCB"　"大來"　" " Dim strHeader As String 　　CardType = " " 　　Select Case Left(CardNumber, 1) 　　Case "1" 　　　　strHeader = Left(CardNumber, 4) 　　　　If strHeader = "1800" And Len(CardNumber) = 15 Then 　　　　　　CardType = "JCB" 　　　　End If 　　Case "2" 　　　　strHeader = Left(CardNumber, 4) 　　　　If strHeader = "2131" And Len(CardNumber) = 15 Then 　　　　　　CardType = "JCB" 　　　　End If 　　Case "3" 　　　　strHeader = Left(CardNumber, 3) 　　　　If strHeader ＞= "300" And strHeader ＜= "399" And Len(CardNumber) = 16 Then 　　　　　　CardType = "JCB" 　　　　ElseIf strHeader ＞= "300" And strHeader ＜= "305" And Len(CardNumber) = 14 Then 　　　　　　CardType = "大來" 　　　　ElseIf (Left(strHeader, 2) = "36" Or Left(strHeader, 2) = "38") And Len(CardNumber) = 14 Then 　　　　　　CardType = "大來" 　　　　ElseIf (Left(strHeader, 2) = "34" Or Left(strHeader, 2) = "37") And Len(CardNumber) = 15 Then 　　　　　　CardType = "A.E." 　　　　End If 　　Case "4" 　　　　If Len(CardNumber) = 13 Or Len(CardNumber) = 16 Then 　　　　　　CardType = "VISA" 　　　　End If 　　Case "5" 　　　　strHeader = Left(CardNumber, 2) 　　　　If strHeader ＞= 51 And strHeader ＜= 55 And Len(CardNumber) = 16 Then 　　　　　　CardType = "MASTER" 　　　　End If 　　Case Else 　　　　CardType = " " 　　End Select End Function