[Ahmed_Mansoor]

أهلا أخي الكريم , وهذه طريقة أخرى :

PHP كود :

Dim SizeSQuare As Double
Dim zCheckValue As String

SizeSQuare = Val(Trim$(Text1.Text)) / Val(Trim$(DBGrid1.Columns(8).Text))

zCheckValue = SizeSQuare

If InStr(1, zCheckValue, ".") <> 0 Then
   zCheckValue = Left$(zCheckValue, InStr(1, zCheckValue, ".") - 1)
   SizeSQuare = Val(Trim$(zCheckValue)) + 1
End If