[HASAN6.0]

السلام عليكم ورحمه الله وبركاته
ارجو المساعدة في كود تقسيم الرقم الى قسمين
ما قبل الفاصلة وما بعدها
مثلا 18.74
اريد ان يظهر في تكست رقم 18 وفي الاخر رقم 74
وشكرا للجميع

[HASAN6.0]

مشكورين
وجدت الحل

PHP كود :

Text1.Text = "18.74"
Text2.Text = Split(Text1, ".")(0)
Text3.Text = Split(Text1, ".")(1) 


[mamas1]

PHP كود :

Dim strAnimals As String
Dim iCounter As Integer
Dim arrAnimals() As String
strAnimals = "Cats,Dogs,Horses,Birds"
'replace the "," below with your delimiter
arrAnimals = Split(strAnimals, ",")
For iCounter = LBound(arrAnimals) To UBound(arrAnimals)
MsgBox arrAnimals(iCounter)
Next 


هذا كود لتقسيم النص حسب , و إظهار الاقسام كلها في msgbox يمكنك وضع أي شيء بدل ","
للإفادة فقط

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

وهذا كود آخر

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