|
|
|
![](images/pasta_topo.gif)
|
![](images/folha.gif)
|
Dicas
|
![](images/folha_fim.gif)
|
Visual Basic.Net (Validações)
|
|
![](images/box01esqsup.gif) |
Título da Dica: Validador de cartões de crédito em VB.Net
|
![](images/box01dirsup.gif) |
|
|
Postada em 9/2/2004 por PC
Public Function IsValid(ByVal strNumber As String) As Boolean Dim lngResult As Integer Dim lngTotal As Integer Dim intIndex As Short Dim i As Short Dim x As Short x = 1 For i = Len(strNumber) To 1 Step -1 lngResult = (CShort(Mid(strNumber, i, 1)) * x) If lngResult >= 10 Then lngTotal = lngTotal + (CShort(Mid(CStr(lngResult), 1, 1)) + CShort(Mid(CStr(lngResult), 2, 1))) Else lngTotal = lngTotal + lngResult End If If x = 2 Then x = 1 Else x = 2 Next If lngTotal Mod 10 = 0 Then IsValid = True Else IsValid = False End If End Function
|
|
|
|
![](images/hosted.gif)
|