اريد دالة لفصل الكسر عن الرقم

[moayad]

هل هناك دالة لفصل الكسر عن الرقم مثال 245.76

اريد دالة تفصل الكسر 0.76 عن الرقم 245.76

ولكم جزيل الشكر

[osama2003]

الاخ مؤيد ارجوا ان تكون هذه بغيتك :

Private Sub ss()

Dim a As Double, b As Integer, c As Single

a = 123.456

b = Int(a)

c = a - Int(a)

MsgBox b & "-" & c

End Sub

انسخ هذا الكود كما هو في محرر vb

[moayad]

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

اريد دالة تفصل الكسر 0.76 عن الرقم 245.76

ويصبح الناتج(76) وهو عباره عن رقم الكسر وليس( 0.76) .

كما يستخدم في كتابة الفواتير أو الشيكات وجزاكم الله كل خير

تم تعديل فبراير 14, 2004 بواسطه moayad

[zakwan]

استخدم دالة:

Right([اسم مربع النص ],2)

طبعا استخدم الدالة من اليسار الى اليمين

[محمد طاهر عرفه]

لنفرض أن الرقم فى الخلية A1

ضع المعادلة الاتية فى أي خلية

=MOD(A1;1)*100

[moayad]

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

[أبو هادي]

السلام عليكم

أخي moayad دالة Round هي دالة للتقريب وليست للفصل .

بكل تأكيد معادلة محمد طاهر ممتازة وذكية ، وهنا أضيف معادلة أخرى للفصل قد ينفع بها :

= A1 - Fix(Abs(A1))

تحياتي .