التنبيهات التالية ظهرت :
Warning [2] count(): Parameter must be an array or an object that implements Countable - Line: 864 - File: showthread.php PHP 7.4.33 (Linux)
File Line Function
/showthread.php 864 errorHandler->error



تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تعديل على كود تحويل الرقم الى نص(التفقيط) رجاءً
#1
كود :
Public Function NumToText(ByVal dblValue As Double) As String
Static ones(0 To 9) As String
Static teens(0 To 9) As String
Static tens(0 To 9) As String
Static thousands(0 To 4) As String
Dim i, x, y As Integer, nPosition As Integer
Dim nDigit As Integer, bAllZeros As Integer
Dim strResult As String, strTemp As String, strTemp1 As String
Dim tmpBuff As String


ones(0) = "صفر"
ones(1) = "واحدة"
ones(2) = "اثنتان"
ones(3) = "ثلاث"
ones(4) = "أربع"
ones(5) = "خمس"
ones(6) = "ست"
ones(7) = "سبع"
ones(8) = "ثمان"
ones(9) = "تسع"

teens(0) = "عشر"
teens(1) = "أحدى عشرة"
teens(2) = "أثنتا عشرة"
teens(3) = "ثلاث عشرة"
teens(4) = "أربع عشرة"
teens(5) = "خمس عشرة"
teens(6) = "ست عشرة"
teens(7) = "سبع عشرة"
teens(8) = "ثماني عشرة"
teens(9) = "تسع عشرة"

tens(0) = ""
tens(1) = "عشر "
tens(2) = "عشرون"
tens(3) = "ثلاثون"
tens(4) = "اربعون"
tens(5) = "خمسون"
tens(6) = "ستون"
tens(7) = "سبعون"
tens(8) = "ثمانون"
tens(9) = "تسعون"

thousands(0) = ""
thousands(1) = "الف"
thousands(2) = "مليون"
thousands(3) = "بليون"
thousands(4) = "ترلبون"

'Trap errors
On Error GoTo NumToTextError

'Get fractional part
strResult = Format((dblValue - Int(dblValue)) * 100)
'Convert rest to string and process each digit
strTemp = CStr(Int(dblValue))

'Iterate through string
For i = Len(strTemp) To 1 Step -1
'Get value of this digit
nDigit = Val(Mid$(strTemp, i, 1))
'Get column position
nPosition = (Len(strTemp) - i) + 1
'Action depends on 1's, 10's or 100's column
Select Case (nPosition Mod 3)
Case 1 '1's position
bAllZeros = False
If i = 1 Then
tmpBuff = ones(nDigit) & " "
ElseIf Mid$(strTemp, i - 1, 1) = "1" Then
tmpBuff = teens(nDigit) & " "
i = i - 1 'Skip tens position
ElseIf nDigit > 0 Then
tmpBuff = ones(nDigit) & " "
Else
'If next 10s & 100s columns are also
'zero, then don't show 'thousands'
bAllZeros = True
If i > 1 Then
If Mid$(strTemp, i - 1, 1) <> "0" Then
bAllZeros = False
End If
End If
If i > 2 Then
If Mid$(strTemp, i - 2, 1) <> "0" Then
bAllZeros = False
End If
End If
tmpBuff = ""
End If
If bAllZeros = False And nPosition > 1 Then
tmpBuff = tmpBuff & thousands(nPosition / 3) & " "
End If
strResult = tmpBuff & strResult
Case 2 'Tens position
If nDigit > 0 Then
strResult = tens(nDigit) & " " & strResult
End If
Case 0 'Hundreds position
If nDigit > 0 Then
strResult = ones(nDigit) & " مائة " & strResult
End If
End Select
Next i
'Convert first letter to upper case
'If Len(strResult) > 0 Then
'strResult = UCase$(Left$(strResult, 1)) & Mid$(strResult, 2)
'End If

EndNumToText:

'Return result
y = Len(strResult)
strTemp1 = Mid(strResult, 1, y - 1)

NumToText = strTemp1 & "درجة فقط"
Exit Function

NumToTextError:
strResult = "#Error#"
Resume EndNumToText
End Function
الاخوة المشرفون و الاعضاء الكرام

السلام عليكم
ارجو التعديل على هذا الكود لتحويل الرقم الى نص
كان سابقا خاص باللغة الانكليزية وعدلت عليه لكن النص يظهر كما في الصورة المرفقة
مع شكري الجزيل لكم لما تبدوه من مساعدة قل نظيرها


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة: Microformt


الردود في هذا الموضوع
تعديل على كود تحويل الرقم الى نص(التفقيط) رجاءً - بواسطة haider kh - 23-03-19, 02:07 PM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 0 73 05-03-24, 02:40 PM
آخر رد: مصمم هاوي
  [vb6.0] سؤال حول تحويل الرقم لعملة في Msflexgrid جلال اليمني 3 408 28-08-23, 07:19 PM
آخر رد: جلال اليمني
  تحويل أكواد فيصل الحطامي 0 246 09-05-23, 04:45 PM
آخر رد: فيصل الحطامي
  تحويل أكواد فيصل الحطامي 0 227 09-05-23, 04:36 PM
آخر رد: فيصل الحطامي
  تحويل أكواد فيصل الحطامي 1 425 01-03-23, 02:37 AM
آخر رد: Amir_Alzubidy
  [vb6.0] المساعدة في تحويل كود بلغة ال VB.Net الى لغة ال VB6 وادي العوضي 0 371 16-12-22, 11:24 AM
آخر رد: وادي العوضي
  (تم التعديل) تعديل كود حذف بيانات طالب مصمم هاوي 3 1,228 12-10-22, 07:36 PM
آخر رد: مصمم هاوي
  تعديل على كود استدعاء بيانات محددة من ثلاث جداول مصمم هاوي 11 5,197 14-09-22, 11:49 PM
آخر رد: رضوان الجماعي
  [سؤال] أحتاج دالة فصل الرقم الصحيح من الرقم العشرى أبو التيمان 2 5,372 08-09-22, 01:29 PM
آخر رد: aymen_libya
Rainbow [سؤال] تحويل مشروع محمد مسافر 4 708 24-08-22, 03:36 PM
آخر رد: محمد مسافر

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


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