طلب تحويل معادلات إلى كود vb

[لزهر مدلل]

السلام عليكم

أريد تحويل المعادلات المرفقة في الملف إلى كود vb لتسهيل عملية حساب معامل السنوات و الشهور و بالنسبة لحساب الشهور يجب أن يكون مرتبط بعدد السنوات مثلا

مثلا إذا تجاوزت السنوات 6 فإن معدل الحساب بالنسبة للشهور يتغير و هكذا بعد السنة 11 إلخ. التفصيل موجود في الملف.

 

Calcul IEP.xlsx

[لزهر مدلل]

السلام عليكم

أخي AbuuAhmed أنا أريد تحويل المعادلات في الجدول إلى كود VB بحيث أدخل الرقم كما في الخلية B11 تطلع لي النتيجة كما في الخلية E8 و كذلك J8

 

[AbuuAhmed]

اختصار للكود
 

Function calcIEP(ByVal Period As Double) As Double
    Dim yr(), yy As Byte, mm As Byte
    Dim Pr(), Per As Double, Pos As Byte, p As Byte
    
    yr = Array(6, 5, 10, 5)
    Pr = Array(0.02, 0.018, 0.015, 0.04)
    
    Pos = InStrRev(Period, ".")
    mm = IIf(Pos = 0, 0, Mid(Period, Pos + 1))
    Period = Fix(Period)
    
    For p = 1 To 4
        yy = yr(p - 1): Per = Pr(p - 1)
        
        If Period > yy And p < 4 Then
            Period = Period - yy
            calcIEP = calcIEP + yy * Per
        Else
            calcIEP = calcIEP + Period * Per + (Per / 12 * mm)
            Exit For
        End If
    Next p
End Function

تم تنقيح الكود وتغيير المرفق.

Calcul IEP_03.xlsm

تم تعديل يناير 25, 2024 بواسطه AbuuAhmed
تنقيح الكود وتغيير المرفق

[ميدو63]

السلام عليكم

حبيت اشكر الجميع حيث استفدت ايضا من هذة المشاركة

ولى طلب

هل يمكن ان يتم اضافة سطور بالكود لابدال المعادلات بالقيم (اى دون ان تظهر المعادلات عند الوقف على الخلايا...

شكرا لكم جميعا

[لزهر مدلل]

بارك الله فيك أخي الكريم

مازال شيئ واحد فقط و هو كيفية تحويل الأرقام بعد الفاصلة إلى أرقام صحيحة مثلا 173.33 أريدها تساوي 33

ظهرت مشكلة أخرى و هي أن عدد الشهور 10 أو 1 يحسبها مثل بعضهما

[AbuuAhmed]

منذ ساعه, لزهر مدلل said:

ظهرت مشكلة أخرى و هي أن عدد الشهور 10 أو 1 يحسبها مثل بعضهما

وعليكم السلام 
احذف اسم الدالة VALUE لتصبح النتيجة نص بدلا من رقم كذلك المدخل Period للدالة calcIEP من Double إلى String
لتصبح الدالة بشكلها النهائي:

Function calcIEP(ByVal Period As String) As Double
    Dim yr(), yy As Byte, mm As Byte
    Dim Pr(), Per As Double, P As Byte
    
    yr = Array(6, 5, 10, 5)
    Pr = Array(0.02, 0.018, 0.015, 0.04)
    
    P = InStrRev(Period, ".")
    mm = IIf(P = 0, 0, Mid(Period, P + 1))
    Period = Fix(Period)
    
    For P = 1 To 4
        yy = yr(P - 1): Per = Pr(P - 1)
        
        If Period > yy And P < 4 Then
            Period = Period - yy
            calcIEP = calcIEP + yy * Per
        Else
            calcIEP = calcIEP + Period * Per + (Per / 12 * mm)
            Exit For
        End If
    Next P
End Function

 

Calcul IEP_05.xlsm

تم تعديل يناير 29, 2024 بواسطه AbuuAhmed

[لزهر مدلل]

حذفتها لكن لم تتغير إذا أمكن أخي أن تجربها

معذرة أخي و أرجوا أن يتسع صدركم لي قمت قمت بتعديل في الملف و نقلت له الكود المعدل لكن إذا كتبت مثلا 17.10 تحسب 17.1

 

أنظر الملفCalcul IEP.xlsm

 

[AbuuAhmed]

لا بد تدخل على تنسيق خلية المدة وتجعلها نص.
 

Calcul IEP_06.xlsm

[لزهر مدلل]

بارك الله فيك على المجهود و سعة صدركم و جعله الله في ميزان حسناتكم

[ميدو63]

السلام عليكم

ولى طلب ( كتبة من قبل بالموضوع( ان امكن

هل يمكن ان يتم اضافة سطور بالكود لابدال المعادلات بالقيم (اى دون ان تظهر المعادلات عند الوقف على الخلايا...

شكرا لكم جميعا