[abulayth]

السلام عليكم

استخدم الكود التالي

يعطيك العافية

PHP كود :

Private Sub Command1_Click()
Text2 = ""
If Len(Text1.Text) < 11 Then MsgBox ("ÇáÑÌÇÁ ÇÏÎÇá ÑÞã ÕÍíÍ"): Text1.SetFocus: Exit Sub
Select Case Val(Mid$(Text1.Text, 10, 2))
Case 40, 41, 42
    Text2.Text = Trim(Str(Val(Text1.Text) + 17))
    Exit Sub
Case 45, 46, 47, 48, 49
    Text2.Text = Trim(Str(Val(Text1.Text) + 7))
    Exit Sub
End Select
Select Case Val(Mid$(Text1.Text, 11, 1))
Case 0, 1
    Text2.Text = Trim(Str(Val(Text1.Text) + 18))
    Exit Sub
Case 2, 3, 4, 5, 6, 7, 8, 9
    Text2.Text = Trim(Str(Val(Text1.Text) + 8))
    Exit Sub
End Select
Text2.Text = Text1.Text
End Sub