تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] دالة ياخذ الكسر فقط
#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 , السندبااد


الردود في هذا الموضوع
دالة ياخذ الكسر فقط - بواسطة البراء - 10-09-14, 07:45 PM
RE: دالة ياخذ الكسر فقط - بواسطة الشاكي لله - 10-09-14, 08:17 PM
RE: دالة ياخذ الكسر فقط - بواسطة Aly El-Haddad - 10-09-14, 09:13 PM
RE: دالة ياخذ الكسر فقط - بواسطة aladein - 18-09-14, 10:19 PM


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


يقوم بقرائة الموضوع: