كيف يتم تحويل الرقم العشري الي كس اعتيادي

[wknaoomi]

ارجو المساعدة عن كيفية ادخال رقم عشري في " مربع النص " ليتحول تلقائيا في خانة الجدول الي " كسر اعتيادي " بمعني مثلا عند ادخال رقم (1.5) يصبح تلقائيا في الجدول ( كسر اعتيادي )

zxc.rar

[allosh]

لا يوجد في الآكسس تحويل تلقائل ولحل هذة المشكلة تستطيع ان نتبع الطريقة التالية

وهي تعتمد علي المطابقة من خلال بحث داخل متوالية من الأرقام

وتجربة قسمة رقم علي رقم حتي يتم المطابقة بين الكسر العشري ونتيجة هذة القسمة

مثال :

Public Function frag(ByVal value As String) As String
        Dim i, s As Integer
        Dim D As Double = Math.Round(Val(value), 5)
        For i = 1 To 9999 '''''المقام
            For s = 0 To 9999 '''''' البسط
                If D = Math.Round(s / i, 5) Then
                    frag = s & "/" & i
                    Return frag
                    Exit Function
                End If
            Next
        Next
        Return frag
    End Function

وشكراً

والسلام عليكم ورحمة الله وبركاته - اخوك في الله علوش

[wknaoomi]

اشكرك كثيرا اخ " علوش " ...

هل يمكن تنفيذ الكود علي المثال المرفق

مع الشكر