مشكلة صغيرة مع الدالة Format

السلام عليكم

اخي العزيز شو المشكلة الي بتواجهها

Currency Format بيوخذ التنسيق من النظام

Control Panel - > Regional and Language -->Customize[button] -->Currency

اذا بدك تستطيع ان تظهر الرقم بالطريقة التي تريد

والسؤال هو انت كيف تريد ان تظهر الرقم؟

أشكرك أخي الفاضل Mo7eb_Alrasool على ردك و اهتمامك

المشكلة هي أني لا أريد الخانات على اليمين

اقتباس

فإن الدالة ستعرض الرقم بهذا الشكل 25.000

حيث أنني إذا مررت إليها الرقم 25 فإنها ستظهره بالصورة السابقة هذه هي المشكلة

و جزاك الله خيراً

' if you want to use the decemal ya3ne el frata use this
' 25	  --> $25
' 25.98   --> $25.98
	Dim Frmt As String, lpNumber
	Frmt = "##"
	lpNumber = "25"
	If InStr(CStr(lpNumber), ".") > 0 Then Frmt = "##.00"
	lpNumber = Format(lpNumber, Frmt)
	lpNumber = "$" & Val(lpNumber)
	MsgBox lpNumber
'//// or you want like this
' 25	  --> $25
' 25.40   --> $25
' 25.98   --> $26
	MsgBox Format(lpNumber, "$##")

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

اخي Mo7eb_Alrasool

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

ولذلك يجب العمل على نتيجة الدالة Format

بمعنى أننا سنأخذ الناتج من الكود بتاع صديقنا COMFORT نبدأ العمل عليه الى ان نستخلص الناتج بالشكل المطلوب

تفضل أخي COMFORT جرب هذا الكود فهو يفيدك ويعمل اللازم ان شاء الله

واذا حدث اي خطأ ان شاء الله نحاول نصلحه مع بعض

Text1 = Format("25", "Currency")
	While InStr(Text1, ".000") <> 0
	  Text1 = Left(Text1, InStr(Text1, ".000") - 1) & " " & Mid(Text1, InStr(Text1, ".000") + Len(".000"))
	Wend

End Sub

شرح الكود :

يقوم الكود بالبحث عن القيمة .000 ثم يحذفها ويضع مسافة بدلا منها ومن ثم يتم استبدال القيمة المدخلة بالقيمة الجديدة فتظر كما نريد

أرجو انه يكون مفيد :)

=================

الى اللقاء

جزاكم الله خيراً أخي الكريم محب الرسول على الاهتمام و المجهود

و لكن كما فال الاخ الفاضل MR^King جزاه الله خيراً

اقتباس

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

ولذلك يجب العمل على نتيجة الدالة Format

بمعنى أننا سنأخذ الناتج من الكود بتاع صديقنا COMFORT نبدأ العمل عليه الى ان نستخلص الناتج بالشكل المطلوب

تفضل أخي COMFORT جرب هذا الكود فهو يفيدك ويعمل اللازم ان شاء الله

واذا حدث اي خطأ ان شاء الله نحاول نصلحه مع بعض

و لهذا فقد استفدت من مجهوده

و جزاكم الله خيراً .