اريد ان يقوم البرنامج بجبر الكسر في حقل المجموع ------->

لعل هذا المطلوب

‏ٌçلé__25.rar

الأخ الكريم /

خد يا اخى هذه الدالة لعلها تنفع معاك واخبرنى بالنتيجة وشرك

Function MAD(TY As Currency)

    Dim UO As Currency
    Dim uo1 As Currency

    uo1 = Fix(TY * 100)
    UO = Fix((TY - Fix(TY)) * 1000)

    If Right(str(UO), 1) < 5 Then
    MAD = uo1 / 100
    Else
    MAD = uo1 / 100 + 0.01
    End If


End Function

اسف غير ما بداخل الاقواس الى

TY As double