كود:
Private Function ConvertHundreds(MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
If Left(MyNumber, 1) <> "0" And Left(MyNumber, 1) <> "1" And Left(MyNumber, 1) <> "2" Then
If Mid(MyNumber, 2, 1) <> "0" Then
Result = ConvertDigit(Left(MyNumber, 1)) & "ãÜÇÆÜÉ æ"
Else
Result = ConvertDigit(Left(MyNumber, 1)) & "ãÜÇÆÜÉ "
End If
End If
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & ConvertTens(Mid(MyNumber, 2))
Else
Result = Result & ConvertDigit(Mid(MyNumber, 3))
End If
If Mid(MyNumber, 1, 1) = "2" And Mid(MyNumber, 2, 2) <> "00" Then
Result = "ãÜÇÆÊÇä æ" & ConvertTens(Mid(MyNumber, 2))
Else
If Mid(MyNumber, 1, 1) = "2" And Mid(MyNumber, 2, 2) = "00" Then
Result = "ãÜÇÆÊÇä "
End If
End If
If Mid(MyNumber, 2, 2) <> "00" And Mid(MyNumber, 1, 1) = "1" Then
Result = "ãÜÇÆÜÉ æ " & ConvertTens(Mid(MyNumber, 2))
Else
If Mid(MyNumber, 2, 2) = "00" And Mid(MyNumber, 1, 1) = "1" Then
Result = "ãÜÇÆÜÉ "
End If
End If
ConvertHundreds = Trim(Result)
End Function
Private Function ConvertTens(Mytens)
Dim Result As String
If Val(Left(Mytens, 1)) = 1 Then
Select Case Val(Mytens)
Case 10: Result = " ÚÔÜÑÉ "
Case 11: Result = " ÅÍÏì ÚÔÜÑ "
Case 12: Result = " ÅËäÜí ÚÔÜÑ "
Case 13: Result = " ËáÇËÉ ÚÔÜÑ "
Case 14: Result = " ÃÑÈÚÜÉ ÚÔÜÑ "
Case 15: Result = " ÎãÓÜÉ ÚÔÜÑ "
Case 16: Result = " ÓÜÊÉ ÚÔÜÑ "
Case 17: Result = " ÓÜÈÚÉ ÚÔÜÑ "
Case 18: Result = " ËãÇäíÜÉ ÚÔÜÑ "
Case 19: Result = " ÊÓÜÚÉ ÚÔÜÑ "
Case Else
End Select
Else
Select Case Val(Left(Mytens, 1))
Case 2: Result = " ÚÔÜÑæä "
Case 3: Result = " ËÜáÇËæä "
Case 4: Result = " ÃÑÈÚÜæä "
Case 5: Result = " ÎãÓÜÜæä "
Case 6: Result = " ÓÜÜÊæä "
Case 7: Result = " ÓÜÜÈÚæä "
Case 8: Result = " ËÜãÜÇäæä "
Case 9: Result = " ÊÓÜÜÚæä "
Case Else
End Select
If Val(Right(Mytens, 1)) = "0" Then
Result = ConvertDigit(Right(Mytens, 1)) & Result
Else
Result = ConvertDigit(Right(Mytens, 1)) & " æ" & Result
End If
End If
ConvertTens = Result
End Function
Private Function ConvertDigit(MyDigit)
Select Case Val(MyDigit)
Case 1: ConvertDigit = "æÇÍÜÏ"
Case 2: ConvertDigit = "ÅËÜäÜÇä"
Case 3: ConvertDigit = "ËÜáÇË"
Case 4: ConvertDigit = "ÃÑÈÜÚ"
Case 5: ConvertDigit = "ÎãÜÓ"
Case 6: ConvertDigit = "ÓÜÊ"
Case 7: ConvertDigit = "ÓÜÈÜÚ"
Case 8: ConvertDigit = "ËãÇä"
Case 9: ConvertDigit = "ÊÜÓÜÚ"
End Select
End Function
Private Sub Report_BeforePF(SuppressBand As Boolean)
arabic.Value = Trim(ConvertCurrencyToArabic(NetWagesPayRun.Value))
End Sub
فقط أضف حقل calculated Feild بالريبورت وسميه arabic وأضفه للفيجوال بيسك[/code]