27-04-13, 08:13 AM
كود :
Dim A As Double
Dim B As Double
B = Val(Trim(Text6.Text)) / 2
If B <= 4 Then
Text8.Text = "4"
ElseIF B > 4 Then
A = B Mod 2
IF A > 0 Then
Text8.Text = B + (2-A)
Else
Text8.Text = B
End IF
End If
تقييم الموضوع :
|
سؤال: كيف يمكن التقريب لأقرب 5 ارقام
|
|
|
يقوم بقرائة الموضوع: