السلام عليكم ورحمة الله وبركاته
وجدت مجموعة من الأوامر مكتوبة بال php وأريد إعادة كتابتها بالجافا ، وأريد منكم شرحها لي ليتسنى لي كتابتها بالجافا حيث أني لا أفقه شيئا بال php ؟
وجزاكم الله خيرا .
الأوامر
Function ID_Validation(ByVal SEGEL_NO As String) As Boolean
Dim i, TOT As Integer
Dim TEMP, FIN As String
TOT = 0
For i = 1 To 9
If (i = 1) Or (i = 3) Or (i = 5) Or (i = 7) Or (i = 9) Then
TEMP = (CInt(Mid(SEGEL_NO, i, 1)) * 2).ToString
If Len(TEMP) = 1 Then
TEMP = "0" & (CInt(Mid(SEGEL_NO, i, 1)) * 2).ToString
Else
TEMP = (CInt(Mid(SEGEL_NO, i, 1)) * 2).ToString
End If
TOT = TOT + CInt(Mid(TEMP, 1, 1)) + CInt(Mid(TEMP, 2, 1))
Else
TOT = TOT + CInt(Mid(SEGEL_NO, i, 1))
End If
Next
If CStr(TOT).Length = 1 Then
FIN = "0" & TOT
Else
FIN = TOT.ToString
End If
ID_Validation = (CInt(Mid(FIN, 2, 1)) = CInt(Mid(SEGEL_NO, 10, 1))) Or (CInt(Mid(SEGEL_
NO, 10, 1)) = 10 - CInt(Mid(FIN, 2, 1)))
Return ID_Validation
End Function
