منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

PHP كود :

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

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 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

HASAN6.0

HASAN6.0

mamas1

اسلام الكبابى