[Ayman2895]

السلام عليكم اعضاء المنتدى الكرام 
عندى مشكله فى كود ازاى يطرح عددين عشرين اى ان كان احدهما كبير او صغير 
مثلا 4.000 - 4.002 او العكس ارجوا الافاده لانى جربت كود val  مع تعريف المتغير و برضوا النتيجه مش صحيحه و لكم جزيل الشكر

[أبو عمر]

Dim m As Double = "4.002" : Dim f As Double = "4.000 "
Dim g As Double = m - f
MsgBox(CSng(g))

دعواتك

[Ayman2895]

اخى الكريم lion_Ksa مشكور على ردك
انا عايز البرنامج يطرح عددين عشريين مش الرقمين دول بس
بشرط انى يطرح الكبير من الصغير او الصغير من الكبير مع الاحتفاظ بالاشارات اثناء الطرح
يعنى لو ناتج الطرح موجب يفضل موجب و لو ناتج الطرح سالب يدى سالب و هكذا

[AGASHE]

تفضل أخي هذا المثال

[Ayman2895]

انا عارف المثال ده اخى AGASHE و لكن لو عملت text box اللى فيه النتاتج طوله ثلاثة فقط سوف ترى الناتج مختلف و هى دى المشكله فى طرح عددين . انا عايز ناتج الطرح يكون ثلاثة decimal فقط و شكرا\

[أبو عمر]

(27-08-15, 09:33 AM)Ayman2895 كتب : اخى الكريم lion_Ksa  مشكور على ردك
انا عايز البرنامج يطرح عددين عشريين مش الرقمين دول بس
بشرط انى يطرح الكبير من الصغير او الصغير من الكبير مع الاحتفاظ بالاشارات اثناء الطرح
يعنى لو ناتج الطرح موجب يفضل موجب و لو ناتج الطرح سالب يدى سالب و هكذا

انت لو جربت تحط بدل الارقام في الكود اعلاه text1 & text2 & text3
كنت وصلت للنتيجة

المثال مرفق جرب طرح اي عددين

  Ayman.zip (الحجم : 1.57 ك ب / التحميلات : 33)

اذا ما كان هذا هو المطلوب لا بأس وضح اكثر وأبشر

[Ayman2895]

شكرا لك اخى الكريم انا بجد مش عارف اقولك ايه انتا فعلا ساعدتى كتيييييير
جزاء الله خيرا و جعله فى ميزان حسناتك و بارك لك فى علمك