المشاركات : 60
المواضيع 29
الإنتساب : Jun 2019
السمعة :
0
الشكر: 13
تم شكره 13 مرات في 11 مشاركات
السلام عليكم
اريد اظهار التفقيط فقط في التقرير حيث لدي مثلا فيلد لمبلغ اريد عمل تفقيط له في الكريستال ريبورت حيث لا اريد عمل فيلد خاص بالتفقيط لهذا المبلغ به في الجدول توفيرا لحجم الداتا
فكيف اقوم بعمل التفقيط في التقرير فقط
شكرا جزيلا
المشاركات : 60
المواضيع 29
الإنتساب : Jun 2019
السمعة :
0
الشكر: 13
تم شكره 13 مرات في 11 مشاركات
29-06-19, 07:05 PM
(آخر تعديل لهذه المشاركة : 29-06-19, 07:07 PM {2} بواسطة bassant.)
(26-06-19, 04:12 PM)bassant كتب : السلام عليكم
اريد اظهار التفقيط فقط في التقرير حيث لدي مثلا فيلد لمبلغ اريد عمل تفقيط له في الكريستال ريبورت حيث لا اريد عمل فيلد خاص بالتفقيط لهذا المبلغ به في الجدول توفيرا لحجم الداتا
فكيف اقوم بعمل التفقيط في التقرير فقط
شكرا جزيلا
ارجو المساعدة في استفساري ولو كان طرح الموضوع غير مفهوم أقوم بالتوضيح اكثر
المشاركات : 15
المواضيع 0
الإنتساب : Jun 2019
السمعة :
3
الشكر: 0
تم شكره 48 مرات في 23 مشاركات
انا استفدت من دالة التفقيط داخل الكريستال ريبورت يمكن قبل ثلاث سنوات تقريبا
رابط الموضوع http://vb4arb.com/vb/showthread.php?tid=8250
المشاركات : 79
المواضيع 27
الإنتساب : Feb 2019
السمعة :
5
الشكر: 89
تم شكره 110 مرات في 57 مشاركات
لقد واجهتني نفس المشكلة وبفضل الله تم حلها
الحل فى ان تقوم بعمل التفقيط فى الفورم (فى تكست بوكس) ثم نقراءة قيمة التكست بوكس فى الكريستال ريبورت عن طريق الباراميتر
وستاتي لك بالمطلوب باذن الله
المشاركات : 1,208
المواضيع 211
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 503 مرات في 297 مشاركات
السيد الفاضل
mr_hso غير متصل
برجاء وضع المثال علي فكرتك الجميلة
بعد اذنك
المشاركات : 79
المواضيع 27
الإنتساب : Feb 2019
السمعة :
5
الشكر: 89
تم شكره 110 مرات في 57 مشاركات
17-01-21, 06:23 PM
(آخر تعديل لهذه المشاركة : 17-01-21, 06:26 PM {2} بواسطة mr_hso.)
السلام عليكم اخى الفاضل [b]atefkhalf2004[/b]
اسف لم اري التعليق الا الان سامحنى
اولا: نقوم بانشاء كلاس باسم ClassConvertNO.vb
وننسخ بداخله ما يلي
كود :
Public Class ClassConvertNO
Public Function ConvertToArabic(ByVal Str As String) As String
Dim IntStr As String = ""
Dim Frac As String = ""
Dim Result As String = ""
Dim L As Integer = Str.Length ' To Get The Length Of The Original Text
Dim M As Integer = Str.IndexOf(".") ' To Get The location Of Decimal Sign
If M > 0 Then
IntStr = Str.Remove(M, L - M) 'To Get Number Without Fractions
Frac = Str.Remove(0, M + 1) 'To Get Number With Fractions
ElseIf M = 0 Then : Frac = Str.Remove(0, M + 1)
ElseIf M < 0 Then : IntStr = Str : End If
'===============================
If IntStr <> Nothing Then IntStr = Get_IntStr_A(IntStr)
'my addation Is here
'----------------------------------
If Frac.Length = 1 Then Frac += "0"
'----------------------------------
If Frac <> Nothing Then Frac = Get_IntStr_A(Frac)
If IntStr <> Nothing Then Result = "# " & IntStr & " جنبه "
If Frac <> Nothing Then Result &= "و " & Frac & " قرش "
Result &= "فقط لا غير " & "#"
'===============================
Return Result
End Function
Private Function Get_IntStr_A(ByRef S As String) As String
Dim Result As String
'=============================================
'Chek If S >= 11 And <= 19
If Val(S) >= 11 And Val(S) <= 19 Then
S = Get_ValuesBN_11_19_A(S)
S = S.Remove(0, 1) : Return S : Exit Function
End If
'===============================================
Dim I As Integer
' Dim ROnes, RTens, RHun, RThus, RTenThus, RHunThus, RMln, RTenMln, RHunMln As String
Dim ROnes As String = "" : Dim RTens As String = "" : Dim RHun As String = ""
Dim RThus As String = "" : Dim RTenThus As String = "" : Dim RHunThus As String = ""
Dim RMln As String = "" : Dim RTenMln As String = "" : Dim RHunMln As String = ""
Dim SSS As String = "" : Dim J As Integer
Dim L As Integer = S.Length
For I = S.Length - 1 To 0 Step -1
If Val(S.Chars(I)) > 0 Then
Select Case I
'===============================================
Case L - 1 : ROnes = Get_Ones_A(S.Chars(I))
'===============================================
Case L - 2
For J = 0 To 7
If L = J + 2 Then SSS = S.Substring(J, 2)
Next
If Val(SSS) >= 11 And Val(SSS) <= 19 Then
RTens = Get_ValuesBN_11_19_A(SSS) : ROnes = Nothing
Else : RTens = Get_Tens_A(S.Chars(I)) : End If
'===============================================
Case L - 3 : RHun = Get_Hundreds_A(S.Chars(I))
'===============================================
Case L - 4 : RThus = Get_Thousands_A(S.Chars(I))
'===============================================
End Select
If L > 4 Then
Select Case I
'===============================================
Case L - 4 : RThus = Get_Ones_A(S.Chars(I))
If (S.Chars(L - 5)) = "0" Then
RThus &= " ألف "
End If
'===============================================
Case L - 5
For J = 0 To 4
If L = J + 5 Then SSS = S.Substring(J, 2)
Next
If Val(SSS) >= 11 And Val(SSS) <= 19 Then
RTenThus = Get_ValuesBN_11_19_A(SSS) : RThus = Nothing
Else : RTenThus = Get_Tens_A(S.Chars(I)) : End If
RTenThus &= " ألف "
'===============================================
Case L - 6 : RHunThus = Get_Hundreds_A(S.Chars(I))
If RTenThus = Nothing Then RHunThus &= " ألف "
'===============================================
Case L - 7
If L = 7 Then : RMln = Get_Ones_A(S.Chars(I)) & " مليون "
Else : RMln = Get_Ones_A(S.Chars(I)) : End If
'===============================================
Case L - 8
For J = 0 To 2
If L = J + 8 Then SSS = S.Substring(J, 2)
Next
If Val(SSS) >= 11 And Val(SSS) <= 19 Then
RTenMln = Get_ValuesBN_11_19_A(SSS) : RMln = Nothing
Else : RTenMln = Get_Tens_A(S.Chars(I)) : End If
If L = 8 Then RTenMln &= " مليون "
'===============================================
Case L - 9 : RHunMln = Get_Hundreds_A(S.Chars(I))
If L = 9 Then
RHunMln &= RMln & RTenMln & " مليون "
RTenMln = Nothing : RMln = Nothing
End If
'===============================================
End Select
End If
End If
Next
Result = RHunMln & RMln & RTenMln & RHunThus & RThus & RTenThus & RHun & ROnes & RTens
Result = Result.Remove(0, 1)
Dim RR As String
Dim II As Integer = Result.IndexOf("*")
If II >= 0 Then : RR = Result.Replace("*", " و")
Else : RR = Result
End If
Return RR
End Function
Private Function Get_ValuesBN_11_19_A(ByVal S As String) As String
'=============================================
Select Case Val(S)
Case 11 : S = "*أحد عشر"
Case 12 : S = "*إثنـى عشر"
Case 13 : S = "*ثلاثة عشر"
Case 14 : S = "*أربعة عشر"
Case 15 : S = "*خمسة عشر"
Case 16 : S = "*ستة عشر"
Case 17 : S = "*سبعة عشر"
Case 18 : S = "*ثمانية عشر"
Case 19 : S = "*تسعة عشر"
End Select
Return S
'=============================================
End Function
Private Function Get_Ones_A(ByVal S As String) As String
'=============================================
Select Case Val(S)
Case 1 : S = "*واحد"
Case 2 : S = "*إثنـين"
Case 3 : S = "*ثلاثة"
Case 4 : S = "*أربعة"
Case 5 : S = "*خمسة"
Case 6 : S = "*ستة"
Case 7 : S = "*سبعة"
Case 8 : S = "*ثمانية"
Case 9 : S = "*تسعة"
End Select
Return S
'===============================================
End Function
Private Function Get_Tens_A(ByVal S As String) As String
'=============================================
Select Case Val(S)
Case 1 : S = "*عشره"
Case 2 : S = "*عشرون"
Case 3 : S = "*ثلاثون"
Case 4 : S = "*أربعون"
Case 5 : S = "*خمسون"
Case 6 : S = "*ستون"
Case 7 : S = "*سبعون"
Case 8 : S = "*ثمانون"
Case 9 : S = "*تسعون"
End Select
Return S
'===============================================
End Function
Private Function Get_Hundreds_A(ByVal S As String) As String
'=============================================
Select Case Val(S)
Case 1 : S = "*مائه"
Case 2 : S = "*مائتان"
Case 3 : S = "*ثلاثمائه"
Case 4 : S = "*أربعمائه"
Case 5 : S = "*خمسائه"
Case 6 : S = "*ستمائه"
Case 7 : S = "*سبعمائه"
Case 8 : S = "*ثمانمائه"
Case 9 : S = "*تسعمائه"
End Select
Return S
'===============================================
End Function
Private Function Get_Thousands_A(ByVal S As String) As String
'=============================================
Select Case Val(S)
Case 1 : S = "*ألف"
Case 2 : S = "*الفان"
Case 3 : S = "*ثلاثة آلاف"
Case 4 : S = "*أربعة آلاف"
Case 5 : S = "*خمسة آلاف"
Case 6 : S = "*ستة آلاف"
Case 7 : S = "*سبعة آلاف"
Case 8 : S = "*ثمانية آلاف"
Case 9 : S = "*تسعة آلاف"
End Select
Return S
'===============================================
End Function
'============================================================================
'============================================================================
'============================================================================
'============================================================================
Public Function ConvertToEnglish(ByVal Str As String)
Dim IntStr As String = "" : Dim Frac As String = ""
Dim Result As String = ""
Dim L As Integer = Str.Length ' To Get The Length Of The Original Text
Dim M As Integer = Str.IndexOf(".") ' To Get The location Of Decimal Sign
If M > 0 Then
IntStr = Str.Remove(M, L - M) 'To Get Number Without Fractions
Frac = Str.Remove(0, M + 1) 'To Get Numbre of Fractions
ElseIf M = 0 Then : Frac = Str.Remove(0, M + 1)
ElseIf M < 0 Then : IntStr = Str : End If
'===============================
If IntStr <> Nothing Then IntStr = Get_IntStr_E(IntStr)
If Frac <> Nothing Then Frac = Get_IntStr_E(Frac)
If IntStr <> Nothing Then Result = "Only " & IntStr & " Riyals "
If Frac <> Nothing Then Result &= ", " & Frac & " Halalah "
'===============================
Return Result
End Function
Private Function Get_IntStr_E(ByRef S As String) As String
Dim Result As String
'=============================================
'Chek If S >= 11 And <= 19
If Val(S) >= 11 And Val(S) <= 19 Then
S = Get_ValuesBN_11_19_E(S)
S = S.Remove(0, 1) : Return S : Exit Function
End If
'===============================================
Dim I As Integer
Dim ROnes As String = "" : Dim RTens As String = "" : Dim RHun As String = ""
Dim RThus As String = "" : Dim RTenThus As String = "" : Dim RHunThus As String = ""
Dim RMln As String = "" : Dim RTenMln As String = "" : Dim RHunMln As String = ""
Dim SSS As String = "" : Dim J As Integer
Dim L As Integer = S.Length
For I = S.Length - 1 To 0 Step -1
If Val(S.Chars(I)) > 0 Then
Select Case I
'===============================================
Case L - 1 : ROnes = Get_Ones_E(S.Chars(I))
'===============================================
Case L - 2
For J = 0 To 7
If L = J + 2 Then SSS = S.Substring(J, 2)
Next
If Val(SSS) >= 11 And Val(SSS) <= 19 Then
RTens = Get_ValuesBN_11_19_E(SSS) : ROnes = Nothing
Else : RTens = Get_Tens_E(S.Chars(I)) : End If
'===============================================
Case L - 3 : RHun = Get_Hundreds_E(S.Chars(I))
'===============================================
Case L - 4 : RThus = Get_Thousands_E(S.Chars(I))
'===============================================
End Select
If L > 4 Then
Select Case I
'===============================================
Case L - 4 : RThus = Get_Ones_E(S.Chars(I))
RThus &= " Thousand "
'===============================================
Case L - 5
For J = 0 To 4
If L = J + 5 Then SSS = S.Substring(J, 2)
Next
If Val(SSS) >= 11 And Val(SSS) <= 19 Then
RTenThus = Get_ValuesBN_11_19_E(SSS) : RThus = Nothing
Else : RTenThus = Get_Tens_E(S.Chars(I)) : End If
If RThus = Nothing Then RTenThus &= " Thousand "
'===============================================
Case L - 6 : RHunThus = Get_Hundreds_E(S.Chars(I))
If (RTenThus = Nothing) And (RThus = Nothing) Then RHunThus &= " Thousand "
'===============================================
Case L - 7
If L = 7 Then : RMln = Get_Ones_E(S.Chars(I))
Else : RMln = Get_Ones_E(S.Chars(I)) : End If
RMln &= " Million "
'===============================================
Case L - 8
For J = 0 To 2
If L = J + 8 Then SSS = S.Substring(J, 2)
Next
If Val(SSS) >= 11 And Val(SSS) <= 19 Then
RTenMln = Get_ValuesBN_11_19_E(SSS) : RMln = Nothing
Else : RTenMln = Get_Tens_E(S.Chars(I)) : End If
If (RMln = Nothing) Then RTenMln &= " Million "
'===============================================
Case L - 9 : RHunMln = Get_Hundreds_E(S.Chars(I))
If L = 9 Then
If (RMln = Nothing) And (RTenMln = Nothing) Then RHunMln &= " Million "
End If
'===============================================
End Select
End If
End If
Next
Result = RHunMln & RTenMln & RMln & RHunThus & RTenThus & RThus & RHun & RTens & ROnes
Result = Result.Remove(0, 1)
Dim RR As String
Dim II As Integer = Result.IndexOf("*")
If II >= 0 Then : RR = Result.Replace("*", " ")
Else : RR = Result
End If
Return RR
End Function
Private Function Get_ValuesBN_11_19_E(ByVal S As String) As String
'=============================================
Select Case Val(S)
Case 11 : S = "*Eleven"
Case 12 : S = "*Twelve"
Case 13 : S = "*Therteen"
Case 14 : S = "*Fourteen"
Case 15 : S = "*Fifteen"
Case 16 : S = "*Sixteen"
Case 17 : S = "*Seventeen"
Case 18 : S = "*Eighteen"
Case 19 : S = "*Nineteen"
End Select
Return S
'=============================================
End Function
Private Function Get_Ones_E(ByVal S As String) As String
'=============================================
Select Case Val(S)
Case 1 : S = "*One"
Case 2 : S = "*Two"
Case 3 : S = "*Three"
Case 4 : S = "*Four"
Case 5 : S = "*Five"
Case 6 : S = "*Six"
Case 7 : S = "*Seven"
Case 8 : S = "*Eight"
Case 9 : S = "*Nine"
End Select
Return S
'===============================================
End Function
Private Function Get_Tens_E(ByVal S As String) As String
'=============================================
Select Case Val(S)
Case 1 : S = "*Ten"
Case 2 : S = "*Twenty"
Case 3 : S = "*Thirty"
Case 4 : S = "*Fourty"
Case 5 : S = "*Fifty"
Case 6 : S = "*Sixty"
Case 7 : S = "*Seventy"
Case 8 : S = "*Eighty"
Case 9 : S = "*Ninety"
End Select
Return S
'===============================================
End Function
Private Function Get_Hundreds_E(ByVal S As String) As String
'=============================================
Select Case Val(S)
Case 1 : S = "*One Hundred"
Case 2 : S = "*Two Hundred"
Case 3 : S = "*Three Hundred"
Case 4 : S = "*Four Hundred"
Case 5 : S = "*Five Hundred"
Case 6 : S = "*Six Hundred"
Case 7 : S = "*Seven Hundred"
Case 8 : S = "*Eight Hundred"
Case 9 : S = "*Nine Hundred"
End Select
Return S
'===============================================
End Function
Private Function Get_Thousands_E(ByVal S As String) As String
'=============================================
Select Case Val(S)
Case 1 : S = "*One Thousand"
Case 2 : S = "*Two Thousand"
Case 3 : S = "*Three Thousand"
Case 4 : S = "*Four Thousand"
Case 5 : S = "*Five Thousand"
Case 6 : S = "*Six Thousand"
Case 7 : S = "*Seven Thousand"
Case 8 : S = "*Eight Thousand"
Case 9 : S = "*Nine Thousand"
End Select
Return S
'===============================================
End Function
End Class
ثانيا ناتي الى الفورم الذي نود اظهار التفقيط فيه ونكتب الكود التالي
فى اي حدث سواء كان Button Click او TextChanged
كود :
Dim CON56 As New ClassConvertNO
TextBox12.Text = CON56.ConvertToArabic(TextBox5.Text)
حيث TextBox12 هو المكان الذي سوف تظهر فيه التفقيط
و TextBox5 هو المكان الذي سيقراء منه الرقم المراد تفقيطه
مع العلم ان الكود ليس من تصميمي انما وجته على احد المنتديات
تحياتي
المشاركات : 1
المواضيع 0
الإنتساب : Dec 2018
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
(26-06-19, 04:12 PM)bassant كتب : السلام عليكم
اريد اظهار التفقيط فقط في التقرير حيث لدي مثلا فيلد لمبلغ اريد عمل تفقيط له في الكريستال ريبورت حيث لا اريد عمل فيلد خاص بالتفقيط لهذا المبلغ به في الجدول توفيرا لحجم الداتا
فكيف اقوم بعمل التفقيط في التقرير فقط
شكرا جزيلا
وعليكم السلام
ضع في Report Custom Functions
يظهر
كود :
Function NumberToText(Amount As Double, MainCurrency As String, SubCurrency As String)
Dim Array1(10) As String
Dim Array2(10) As String
Dim Array3(10) As String
Dim MyNumber As String
Dim GetNumber As String
Dim ReadNumber As Number
Dim My100 As String
Dim My10 As String
Dim My1 As String
Dim My11 As String
Dim My12 As String
Dim GetText As String
Dim Billion As String
Dim Million As String
Dim Thousand As String
Dim Hundred As String
Dim Fraction As String
Dim MyAnd As String
Dim I As Number
Dim ReMark As String
If Amount > 999999999999.99 Then
Exit Function
End If
If Amount < 0 Then
Amount = Amount * -1
ReMark = "سالب "
End If
If Amount = 0 Then
NumberToText = "صفر"
Exit Function
End If
MyAnd = " و"
Array1(1) = ""
Array1(2) = "مائة"
Array1(3) = "مائتان"
Array1(4) = "ثلاثمائة"
Array1(5) = "أربعمائة"
Array1(6) = "خمسمائة"
Array1(7) = "ستمائة"
Array1(8) = "سبعمائة"
Array1(9) = "ثمانمائة"
Array1(10) = "تسعمائة"
Array2(1) = ""
Array2(2) = " عشر"
Array2(3) = "عشرون"
Array2(4) = "ثلاثون"
Array2(5) = "أربعون"
Array2(6) = "خمسون"
Array2(7) = "ستون"
Array2(8) = "سبعون"
Array2(9) = "ثمانون"
Array2(10) = "تسعون"
Array3(1) = ""
Array3(2) = "واحد"
Array3(3) = "اثنان"
Array3(4) = "ثلاثة"
Array3(5) = "أربعة"
Array3(6) = "خمسة"
Array3(7) = "ستة"
Array3(8) = "سبعة"
Array3(9) = "ثمانية"
Array3(10) = "تسعة"
GetNumber = ToText(Amount, "000000000000.00")
I = 0
Do While I < 15
If I < 12 Then
MyNumber = Mid(GetNumber, I + 1, 3)
Else
MyNumber = "0" + Mid(GetNumber, I + 2, 2)
End If
If ToNumber(Mid(MyNumber, 1, 3)) > 0 Then
ReadNumber = ToNumber(Mid(MyNumber, 1, 1))
My100 = Array1(ReadNumber+1)
ReadNumber = ToNumber(Mid(MyNumber, 3, 1))
My1 = Array3(ReadNumber+1)
ReadNumber = ToNumber(Mid(MyNumber, 2, 1))
My10 = Array2(ReadNumber+1)
If Mid(MyNumber, 2, 2) = "11" Then
My11 = "إحدى عشرة"
End If
If Mid(MyNumber, 2, 2) = "12" Then
My12 = "إثنى عشرة"
End If
If Mid(MyNumber, 2, 2) = "10" Then
My10 = "عشرة"
End If
If (ToNumber((Mid(MyNumber, 1, 1))) > 0) And (ToNumber((Mid(MyNumber, 2, 2))) > 0) Then
My100 = My100 + MyAnd
End If
If (ToNumber(Mid(MyNumber, 3, 1)) > 0) And (ToNumber(Mid(MyNumber, 2, 1)) > 1) Then
My1 = My1 + MyAnd
End If
GetText = My100 + My1 + My10
If (ToNumber(Mid(MyNumber, 3, 1)) = 1) And (ToNumber(Mid(MyNumber, 2, 1)) = 1) Then
GetText = My100 + My11
If (ToNumber(Mid(MyNumber, 1, 1)) = 0) Then
GetText = My11
End If
End If
If (ToNumber(Mid(MyNumber, 3, 1)) = 2) And (ToNumber(Mid(MyNumber, 2, 1)) = 1) Then
GetText = My100 + My12
If (ToNumber(Mid(MyNumber, 1, 1)) = 0) Then
GetText = My12
End If
End If
If (I = 0) And (GetText <> "") Then
If (ToNumber(Mid(MyNumber, 1, 3)) > 10) Then
Billion = GetText + " مليار"
Else
Billion = GetText + " مليارات"
If (ToNumber(Mid(MyNumber, 1, 3)) = 2) Then
Billion = " مليار"
End If
If (ToNumber(Mid(MyNumber, 1, 3)) = 2) Then
Billion = " مليارن"
End If
End If
End If
If (I = 3) And (GetText <> "") Then
If (ToNumber(Mid(MyNumber, 1, 3)) > 10) Then
Million = GetText + " مليون"
Else
Million = GetText + " ملايين"
If (ToNumber(Mid(MyNumber, 1, 3)) = 1) Then
Million = " مليون"
End If
If (ToNumber(Mid(MyNumber, 1, 3)) = 2) Then
Million = " مليونان"
End If
End If
End If
If (I = 6) And (GetText <> "") Then
If (ToNumber(Mid(MyNumber, 1, 3)) > 10) Then
Thousand = GetText + " ألف"
Else
Thousand = GetText + " ألاف"
If (ToNumber(Mid(MyNumber, 3, 1)) = 1) Then
Thousand = " ألف"
End If
If (ToNumber(Mid(MyNumber, 3, 1)) = 2) Then
Thousand = " ألفان"
End If
End If
End If
If (I = 9) And (GetText <> "") Then
Hundred = GetText
End If
If (I = 12) And (GetText <> "") Then
Fraction = GetText
End If
End If
I = I + 3
Loop
If (Billion <> "") Then
If (Million <> "") Or (Thousand <> "") Or (Hundred <> "") Then
Billion = Billion + MyAnd
End If
End If
If (Million <> "") Then
If (Thousand <> "") Or (Hundred <> "") Then
Million = Million + MyAnd
End If
End If
If (Thousand <> "") Then
If (Hundred <> "") Then
Thousand = Thousand + MyAnd
End If
End If
If Fraction <> "" Then
If (Billion <> "") Or (Million <> "") Or (Thousand <> "") Or (Hundred <> "") Then
NumberToText = ReMark + Billion + Million + Thousand + Hundred + " " + MainCurrency + MyAnd + Fraction + " " + SubCurrency
Else
NumberToText = ReMark + Fraction + " " + SubCurrency
End If
Else
NumberToText = ReMark + Billion + Million + Thousand + Hundred + " " + MainCurrency
End If
End Function
ثم استعملها هكذا
كود :
NumberToText (5431.24 ,"جنيه","قرش")
شكرا
|