[اسلام الكبابى]

وهذا كود آخر

PHP كود :

Dim Z As Integer

Private Sub Command1_Click()

X = 64.19237
Y = Int(X)
P = Len(X) - Len(Y) - 1
Z = (X - Y) * 10 ^ P
Text1.Text = Y: Text2.Text = Z
End Sub