كيف يتم حسبة كسر القرش

شوي القضية مش واضحة.. لو تكرمت تفسر اكثر ..

هل هو

1- اذا كان العشري اقل من خمسة يصبح صفرا واذا اكبر يصبح 5..

2-هل تريد ازالة الاعشار؟

لم افهم بصراحة فالكلام مربوط ببعضه بدون فواصل تحدد الجمل اعذرني ان لم استوعبها جيدا..

تحياتي

السلام عليكم ورحمة الله وبركاته

استاذ / همام

انا لا اريد حذف الرقم العشرى ولكن كل مال اريد عند تسجيل عدد ايام العطلة يوم وقيمة المكافأة 10 جنيه

يقوم بحسب الآتى حساب قيمة يوم الموظف

قيمة أجر يوم الموظف = المرتب الأساسى / 30 يوم

حساب الإجمالى فى متغير = قيمة أجر اليوم + قيمة المكافأة ومنها يقوم بحسبة الدمغة وهى

قيمة الدمغة = الإجمالى × 0.006

حساب الصافى مرتين الأولى الصافى = الإجمالى - المتغير

بعد ذلك يحسب كسر الشلن فأذا كان اللناتج مثلا 21.94 واحد وعشرون جنيه واربعة وتسعون قرشاً فلا بد من جبر رقم اربعة

يعطينا الناتج فى خانة كسر الشلن =0.06 بمعنى انه يخصم الرقم العشرى الثانى ويضع قيمة المتمم لواحد صحيح

وفى خانة الصافى يصبح القيمة 21.90 وهكذا مع كل عامل

وشكرا لسعة صدركم

جرب اخي هذا الكود..واعذرني الاكسس لازال حتى الان في غيبوبة لدي.. يضرب يقلب عند اي دبل كليك..و هذا غير مفهوم..

المهم..في كود بعد التحديث للخانة التي تحسب من خلالها كل هذه الحسابات..

KSR= 1-Right(MOK_VAL,2)/100

اؤكد لك انه اعطاني الكسر الدقيق..

ولكني لي سؤال اخر.. ارجوا ان تعذرني على السؤال فالظاهر ان كباية النسكافيه لم تكن مركزة كفاية ام انني لم اعد افهم الرياضيات!!!!

ياعزيزي..

هل تريد البرنامج ان يتعامل تحديدا مع الكسور التي تكون خانة العشرات فيها 9 فقط.. ام كل الكسور؟؟

مثال فقط الارقام على شاكلة

29.92

26.93

21.94

ام كل الكسور مهما كانت.. وان كان الجواب هو الثاني.. فلماذ كل هذه التعقيدات؟؟؟

استاذ / همام

هذا هو المطلوب بالضبط فى موضوع كسر القرش

مرفق فى ملف اكسل

وارجو توضيح الدالة التى تقابل TRUNC فى الأكسيل

وشكراً

kasr.rar

السلام عليكم ورحمة الله وبركاته

ارجو توضيح كيفية عمل

TruncIt in access

فهى هامة جداً فى حسبة كسر القرش

كما تم فى الأكسيل

وشكراً

لم اجد دالة بهذا الاسم لكن الاكسس يعطيك دوال كثيرة للتعامل مع الكسور..

Fix و Int وهذا ما كتب في ال Help...

اقتباس

Int, Fix Functions

Show All

Hide All

Returns the integer portion of a number.

Syntax

Int(number)

Fix(number)

The required number argument (argument: A value that provides information to an action, an event, a method, a property, a function, or a procedure.) is a Double (Double data type: A fundamental data type that holds double-precision floating-point numbers. It's stored as a 64-bit number ranging in value from approximately -1.797E308 to -4.940E-324 (negative), from 4.94E-324 to 1.797E308 (positive), and 0.) or any valid numeric expression (numeric expression: Any expression that evaluates to a number. The expression can be any combination of variables, constants, functions, and operators.). If number contains Null (Null: A value you can enter in a field or use in expressions or queries to indicate missing or unknown data. In Visual Basic, the Null keyword indicates a Null value. Some fields, such as primary key fields, can't contain Null.), Null is returned.

Remarks

Both Int and Fix remove the fractional part of number and return the resulting integer value.

The difference between Int and Fix is that if number is negative, Int returns the first negative integer less than or equal to number, whereas Fix returns the first negative integer greater than or equal to number For example, Int converts -8.4 to -9, and Fix converts -8.4 to -8.

Fix(number) is equivalent to:

Sgn(number) * Int(Abs(number))

Example

Note Examples that follow demonstrate the use of this function in a Visual Basic for Applications (VBA) module. For more information about working with VBA, select Developer Reference in the drop-down list next to Search and enter one or more terms in the search box.

This example illustrates how the Int and Fix functions return integer portions of numbers. In the case of a negative number argument, the Int function returns the first negative integer less than or equal to the number; the Fix function returns the first negative integer greater than or equal to the number.

Dim MyNumber
MyNumber = Int(99.8)	' Returns 99.
MyNumber = Fix(99.2)	' Returns 99.

MyNumber = Int(-99.8)	' Returns -100.
MyNumber = Fix(-99.8)	' Returns -99.

MyNumber = Int(-99.2)	' Returns -100.
MyNumber = Fix(-99.2)	' Returns -99.

السلام عليكم ورحمة الله وبركاته

استاذ / همام

دالة int fix تلغى الكسر نهائى وانا اريد التعامل مع الكسر بمعنى اريد التعامل مع الرقم الثانى من العلامة العشرية

29.92

انا جربت فكرة لذيذة ونفذتها وجابت نتائج هائلة بس للأسف فيه مشكلة غريبة انه عند التعامل مع العلامة العشرية

مثلاً 29.20 ، 29.40 ، 29.70 ، 29.90

الكسور 20 ، 40 ، 70 ، 90

يعطى الناتج ناقص عشرة قروش

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

وشكراً

db1.rar