عاوز اخد باقي القسمة العدد العشرى فقط

X = 12.25

X = X - int(x)

X = 0.25

أخى العزيز

هذا الكود المذكور سابقآ[X1 = X - int(X)] لايصلح الا مع الأعداد الموجبة

فلو كانت X=-15.25 فان قيمة int(X) ستكون -16 وليس-15

وبالتالى فان قيمة X1 ستكون .75 وليس .25

أما الكود الذى يصلح مع جميع الأعداد (سواء الموجبة أم السالبة) فهو

X1 = X - Fix(X)

for i=1 to len(text1

text2.text=mid(text1,i,1)

if text2.text="." then text2.text : exit sub

next i

text1.text=mid(text1.text,text2.text,len(text1.text)-text2.text

x = IIf(InStr(x, ".") > 0, Split(x, ".")(1), 0)

السلام عليكم

شكراً للجميع على الاهتمام والرد وشكرا تحياتى للجميع

أخوكم الحزين اوى