請問各位先進...<br>如何利用信用卡卡號得知,其信用卡為美國運通卡或大來卡或<br>U卡,謝謝!!
以下函數給你參考(初步驗証都正確,但不確定百分之百正確) 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