08-05-13, 06:25 AM
بعمل برنامج ومحتاج أن أدخل في Text Box القيمة علي هيئة 00.00 وأن يتم إدخالها علي هيئة هذه الصيغة مثلا 01.00 مع العلم بأن في قاعدة البيانات ستدخل علي إنها نص فكيف الوصول لهذا ......ياريت الافادة ..وشكرا .
كيفية الإبقاء علي الصيغة 00.00 بالنص
|
08-05-13, 06:25 AM
بعمل برنامج ومحتاج أن أدخل في Text Box القيمة علي هيئة 00.00 وأن يتم إدخالها علي هيئة هذه الصيغة مثلا 01.00 مع العلم بأن في قاعدة البيانات ستدخل علي إنها نص فكيف الوصول لهذا ......ياريت الافادة ..وشكرا .
08-05-13, 03:54 PM
انا ايضا بحاجة الى هكذا طريقة
08-05-13, 05:59 PM
[COLOR="#000080"]السلام عليكم اخي
استخدم الكود التالي كود : Text1.Text = Format(Text1, "00.00") بالتوفيق[/COLOR]
08-05-13, 10:00 PM
اخي العزيز ممكن كود فاصلة الاف
يعني عند كتابه هذا الرقم "1000000" يضهر هكذا "1,000,000"
09-05-13, 12:12 AM
السلام عليكم ورحمة الله وبركاته جرب PHP كود : Private Sub Text1_GotFocus() السلام عليكم ورحمة الله وبركاته
09-05-13, 01:04 AM
اخي لكن عند ضرب (1,000,000 * 10) يضهر الناتج ( 10)
أي لا يقوم بأعتماد الاصفار بعد الفوارز
09-05-13, 01:10 AM
المبرمج البسيط كتب :اخي لكن عند ضرب (1,000,000 * 10) يضهر الناتج ( 10) السلام عليكم ورحمة الله وبركاته التنسيق لا يستخدم في العمليات الحسابية، هو فقط لتسهيل القراءة على المشاهد السلام عليكم ورحمة الله وبركاته
09-05-13, 01:16 AM
المبرمج البسيط كتب :اخي لكن عند ضرب (1,000,000 * 10) يضهر الناتج ( 10) السلام عليكم ورحمة الله وبركاته ممكن تستخدم هذه الطريقة للتخلص من التنسيق قبل اجراء العملية الحسابية PHP كود : Me.Text3.Text = Val(Replace(Text1.Text, ",", "")) * Val(Replace(Text2.Text, ",", "")) السلام عليكم ورحمة الله وبركاته
13-05-13, 06:23 PM
@@أبورائد@@ كتب : -------------------------------------------------------------------- استاذي العزيز : أبورائد حفظة الله السلام عليكم ورحمة وبركاته كود جميل بس اريد إضافة كلمة ريال بجانب العدد من اليسار
20-06-13, 05:42 PM
(آخر تعديل لهذه المشاركة : 20-06-13, 05:45 PM {2} بواسطة محمد صالح علي.)
المبرمج البسيط كتب :اخي لكن عند ضرب (1,000,000 * 10) يضهر الناتج ( 10) أخى جرب التالى وقم بوضع الأدوات كما بالكود فى الفورم .. هذه مجرد فكرة للإستخدام يمكن تطويعها كما تريد أرجو أن يكون هو المطلوب [HTML]Private Sub Form_Load() Text1(0).Text = Format$(Text1(0), "#,##0.00") Text1(1).Text = Format$(Text1(1), "#,##0.00") Text3.Locked = True Text3.BackColor = &H80000000 End Sub Private Sub Opt1_Click(Index As Integer) Select Case Index Case 0 Text3.Text = Format$(CSng(Text1(0) * Text1(1)), "#,##0.00") Case 1 Text3.Text = Format$(CSng(Text1(0) / Text1(1)), "#,##0.00") Case 2 Text3.Text = Format$(CSng(Text1(0)) + CSng(Text1(1)), "#,##0.00") Case 3 Text3.Text = Format$(CSng(Text1(0)) - CSng(Text1(1)), "#,##0.00") Case Else Text3.Text = "0.00" End Select End Sub Private Sub Text1_Change(Index As Integer) Call Form_Load If Text1(Index).Text = "" Then Exit Sub Call Opt1_Click(Index) End Sub [/HTML] |
|
المواضيع المحتمل أن تكون متشابهة . | |||||
الموضوع : | الكاتب | الردود : | المشاهدات : | آخر رد | |
كيفية استخدام Group Header فى داتا ريبورت لتجميع البيانات حسب حقل معين | haithamelareny | 1 | 694 |
31-05-23, 09:28 PM آخر رد: مصمم هاوي |
|
كيفية البحث لشخص معين بتاريخ معين وكيفية البحث بين تاريخيين عن طريق الاداة data | saadalhadi | 3 | 3,478 |
25-02-13, 12:41 PM آخر رد: تركي الحلواني |