+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : كيف نجعل فاصلة الألوف 000'1 بدل 1,000 (/showthread.php?tid=9630)
كيف نجعل فاصلة الألوف 000'1 بدل 1,000 - mh66 - 16-07-13
السلام عليكم
كيف نجعل فاصلة الألوف 000.00'1 بدل 1,000.00
شكرا
حيث ان كود الحالة الثانية text1.Text = Format(text1.Text, "#,##0.00")
كيف يكون كود الحالة الأولى
شكرا
كيف نجعل فاصلة الألوف 000'1 بدل 1,000 - @@أبورائد@@ - 16-07-13
السلام عليكم ورحمة الله وبركاته
PHP كود :
Private Sub Command1_Click()
Me.Text1.Text = GroupingNumber(1236798.2342)
End Sub
Public Function GroupingNumber(n As Double) As String
Dim s As String
s = Format$(n, "###'###'###'###.###")
s = Replace(s, "'''", "")
s = Replace(s, "''", "")
If Left$(s, 1) = "'" Then s = Mid$(s, 2)
If Right$(s, 1) = "." Then s = Mid$(s, 1, Len(s) - 1)
GroupingNumber = s
End Function
[COLOR=#005300]
السلام عليكم ورحمة الله وبركاته
[/COL
كيف نجعل فاصلة الألوف 000'1 بدل 1,000 - samee119485r - 16-07-13
مشكور ابو رائد
كود جميل
كيف نجعل فاصلة الألوف 000'1 بدل 1,000 - mh66 - 17-07-13
كود جميل وجميل جدا
مشكور يا غالي
كيف نجعل فاصلة الألوف 000'1 بدل 1,000 - Top GreaT - 18-07-13
السلام عليكم
بعد شكر الاخوان جميعا
حبيت اشارك معك بالكود هذا
كود :
[align=left]
Text2 = Replace(Format(Text1, "000,000.00"), ",", "'")
[/align]تقبلوا تحياتي ,,,
كيف نجعل فاصلة الألوف 000'1 بدل 1,000 - @@أبورائد@@ - 18-07-13
السلام عليكم ورحمة الله وبركاته
بارك الله فيك أخ Top GreaT
لقد لفت نظري لفكرة أخرى
وإليك طريقة مختصرة بالدالة FormatNumber
PHP كود :
Text2.Text = Replace(FormatNumber(Val(Text1.Text)), ",", "'")
السلام عليكم ورحمة الله وبركاته
كيف نجعل فاصلة الألوف 000'1 بدل 1,000 - mh66 - 19-07-13
ما شاء الله يا معلمين
جزاكم الله كل خير