تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف نجعل فاصلة الألوف 000'1 بدل 1,000
#1
السلام عليكم

كيف نجعل فاصلة الألوف 000.00'1 بدل 1,000.00

شكرا

حيث ان كود الحالة الثانية text1.Text = Format(text1.Text, "#,##0.00")

كيف يكون كود الحالة الأولى

شكرا
الرد }}}}
تم الشكر بواسطة:
#2

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







PHP كود :
Private Sub Command1_Click()
    
Me.Text1.Text GroupingNumber(1236798.2342)
    
End Sub

Public Function GroupingNumber(As Double) As String
    Dim s 
As String
    s 
Format$(n"###'###'###'###.###")
    
Replace(s"'''""")
    
Replace(s"''""")
    If 
Left$(s1) = "'" Then s Mid$(s2)
    If 
Right$(s1) = "." Then s Mid$(s1Len(s) - 1)
    
GroupingNumber s
End 
Function 




[COLOR=#005300]
السلام عليكم ورحمة الله وبركاته
[/COL
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة:
#3
مشكور ابو رائد

كود جميل
الرد }}}}
تم الشكر بواسطة:
#4
كود جميل وجميل جدا

مشكور يا غالي
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم

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

كود :
[align=left]
Text2 = Replace(Format(Text1, "000,000.00"), ",", "'")
[/align]

تقبلوا تحياتي ,,,
الرد }}}}
تم الشكر بواسطة:
#6

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




بارك الله فيك أخ Top GreaT
لقد لفت نظري لفكرة أخرى

وإليك طريقة مختصرة بالدالة
FormatNumber
PHP كود :
Text2.Text Replace(FormatNumber(Val(Text1.Text)), ",""'"





السلام عليكم ورحمة الله وبركاته
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة:
#7
ما شاء الله يا معلمين

جزاكم الله كل خير
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اريد كود لايجاد فاصلة الآلاف Ahmed Gandos 2 461 16-04-15, 12:01 AM
آخر رد: Ahmed Gandos
  سؤال : كيف أدخل فاصلة الألوف على text داخل التقرير mh66 5 816 20-05-13, 11:23 AM
آخر رد: mh66

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم