تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] دالة ياخذ الكسر فقط
#1
بسم الله الرحمن الرحيم
الاخوة الافاضل في المنتدى سئالي هو هل يوجد دالة او طريقة تاخذ الكسر فقط مثال على ذلك اذا كان الرفم 2.8 اثنين وثمانية من عشرة اريد الدالة تاخذ الثامنية من عشرة فقط من غير الرقم الصحيح رقم 2
الله المستعان
الرد
تم الشكر بواسطة:
#2
حقيقا لا توجد دالة صريحة تقوم بعمل ذلك

بل يمكنك عمل معادلات رياضية

او تحويل الرقم الى نص ومعالجته ثم ارجاعه الى رقم .. كلها حلول يمكنك اتباعها


كتبت دالة على السريع تقوم باستعمال مبدا تحويل الرقم الى نص ثم استعمال spilt واخذ الرقم الي مابعد الفاصلة :-

PHP كود :
Private Sub Form1_Load(sender As ObjectAs EventArgsHandles MyBase.Load

        MsgBox
(GetDecimalNumber(23.4546))  'output : 4546'

    
End Sub

    
''' <summary>
    ''' 
دالة استخراج الارقام العشرية من الاعداد
    
''' </summary>
    ''' 
<param name="number">الرقم المراد استخراج الارقام العشرية منه</param>
    
''' <returns></returns>
    ''' 
<remarks></remarks>
    Public Function 
GetDecimalNumber(ByVal number As Double) As Integer

        Dim StringNumber 
As String number.ToString().Split("."c).Last()
        Return 
Integer.Parse(StringNumber)

    
End Function 
الرد
تم الشكر بواسطة: Mahmoud Taha
#3
PHP كود :
private void button1_Click(object senderEventArgs e)
        {
            
MessageBox.Show(GetDecimalPart(13.894).ToString()); // Output: 0.894
        
}

        public 
double GetDecimalPart(double num)
        {
            return 
num Math.Truncate(num);
        } 
الرد
تم الشكر بواسطة:
#4
اخي الكريم ... انا الي بعرفو انو التكست بالفجوال بيعطي الفاصلة بدون اي كود ولكن تكتب الاكواد لكي تحول رقم الفاصلة الى اقرب رقم .
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  دالة واكوادsql اسامه الهرماوي 5 168 26-03-19, 03:12 PM
آخر رد: asemshahen5
  دالة لاضهار السنة الدراسية Adil Idabdellah 8 285 26-12-18, 10:37 PM
آخر رد: abdousoft
  [سؤال] كتابة دالة Simo1991 4 300 30-10-18, 09:05 PM
آخر رد: elgokr
  [VB.NET] دالة أقوى من SendKeys لمحاكاة الكيبورد sniperjawadino 2 317 23-10-18, 06:22 PM
آخر رد: sniperjawadino
  دالة الجمع في كريستل ريبورت makky 7 540 30-08-18, 07:01 PM
آخر رد: elgokr
  دالة تفقيط المبلغ الى حروف السيد الجوهري 3 496 09-08-18, 03:10 AM
آخر رد: elgokr
  [VB.NET] كيف اقوم بعمل المخطط البياني ياخذ الارباح الاسبوعية والشهرية والسنوية من قاعدة البي فراس الغزي 11 1,009 01-08-18, 02:42 AM
آخر رد: elgokr
  دالة الوقت now alfauori 4 415 16-07-18, 12:07 AM
آخر رد: elgokr
Information [نقاش] حماية البرنامج الخاص بك من الكسر YousefOkasha 7 1,001 21-06-18, 07:46 PM
آخر رد: silverlight
  عملة دالة لاستخراج اسم المحافظة atefkhalf2004 14 844 24-02-18, 11:13 PM
آخر رد: atefkhalf2004

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم