[VB_Coder]

أنا كنت . أكتب الردرد من الموبايل والآن من الكمبيوتر . جرب هذا الكود :

كود :

Dim A As String
Dim B As Double
Dim C As String
Dim D As String

A = Val(Trim(Text6.Text)) / 2
If InStr(1, A, ".") <> 0 Then
   B = Val(Mid$(A, InStr(1, A, ".")))
   C = Val(Left$(A, InStr(1, A, ".") - 1))
   If C Mod 2 > 0 Then
      D = A + (1 - Val(B))
   Else
      D = A + (2 - Val(B))
   End If
Else
   If Val(A) Mod 2 > 0 Then
      D = A + 1
   Else
      D = A
   End If
End If

If D <= 4 Then
   Text8.Text = "4"
Else
   Text8.Text = D
End If