[ولد رائع]

PHP كود :

Public Function Horof(X) 
      Ma = " ريال" 
      Mi = " هللة" 
      N = Int(X) 
      b = Val(Right(Format(X, "000000000000.00"), 2)) 
      R = SHorof(N) 
      If R <> "" And b > 0 Then Result = R & Ma & " و " & b & Mi 
      If R <> "" And b = 0 Then Result = R & Ma 
      If R = "" And b <> 0 Then Result = b & Mi 
      Horof = Result 
       
End Function 

Private Function SHorof(X) 
       
      N = Int(X) 
      C = Format(N, "000000000000") 
      C1 = Val(Mid(C, 12, 1)) 
      Select Case C1 
            Case Is = 1: Letter1 = "واحد" 
            Case Is = 2: Letter1 = "اثنان" 
            Case Is = 3: Letter1 = "ثلاثة" 
            Case Is = 4: Letter1 = "اربعة" 
            Case Is = 5: Letter1 = "خمسة" 
            Case Is = 6: Letter1 = "ستة" 
            Case Is = 7: Letter1 = "سبعة" 
            Case Is = 8: Letter1 = "ثمانية" 
            Case Is = 9: Letter1 = "تسعة" 
      End Select 
       
      C2 = Val(Mid(C, 11, 1)) 
      Select Case C2 
            Case Is = 1: Letter2 = "عشر" 
            Case Is = 2: Letter2 = "عشرون" 
            Case Is = 3: Letter2 = "ثلاثون" 
            Case Is = 4: Letter2 = "اربعون" 
            Case Is = 5: Letter2 = "خمسون" 
            Case Is = 6: Letter2 = "ستون" 
            Case Is = 7: Letter2 = "سبعون" 
            Case Is = 8: Letter2 = "ثمانون" 
            Case Is = 9: Letter2 = "تسعون" 
      End Select 
       
      If Letter1 <> "" And C2 > 1 Then Letter2 = Letter1 + " و" + Letter2 
      If Letter2 = "" Then Letter2 = Letter1 
      If C1 = 0 And C2 = 1 Then Letter2 = Letter2 + "ة" 
      If C1 = 1 And C2 = 1 Then Letter2 = "احدى عشر" 
      If C1 = 2 And C2 = 1 Then Letter2 = "اثنى عشر" 
      If C1 > 2 And C2 = 1 Then Letter2 = Letter1 + " " + Letter2 
      C3 = Val(Mid(C, 10, 1)) 
      Select Case C3 
            Case Is = 1: Letter3 = "مائة" 
            Case Is = 2: Letter3 = "مئتان" 
            Case Is > 2: Letter3 = Left(SHorof(C3), Len(SHorof(C3)) - 1) + "مائة" 
      End Select 
      If Letter3 <> "" And Letter2 <> "" Then Letter3 = Letter3 + " و" + Letter2 
      If Letter3 = "" Then Letter3 = Letter2 
       
      C4 = Val(Mid(C, 7, 3)) 
      Select Case C4 
            Case Is = 1: Letter4 = "الف" 
            Case Is = 2: Letter4 = "الفان" 
            Case 3 To 10: Letter4 = SHorof(C4) + " آلاف" 
            Case Is > 10: Letter4 = SHorof(C4) + " الف" 
      End Select 
      If Letter4 <> "" And Letter3 <> "" Then Letter4 = Letter4 + " و" + Letter3 
      If Letter4 = "" Then Letter4 = Letter3 
      C5 = Val(Mid(C, 4, 3)) 
      Select Case C5 
            Case Is = 1: Letter5 = "مليون" 
            Case Is = 2: Letter5 = "مليونان" 
            Case 3 To 10: Letter5 = SHorof(C5) + " ملايين" 
            Case Is > 10: Letter5 = SHorof(C5) + " مليون" 
      End Select 
      If Letter5 <> "" And Letter4 <> "" Then Letter5 = Letter5 + " و" + Letter4 
      If Letter5 = "" Then Letter5 = Letter4 
       
      C6 = Val(Mid(C, 1, 3)) 
      Select Case C6 
            Case Is = 1: Letter6 = "مليار" 
            Case Is = 2: Letter6 = "ملياران" 
            Case Is > 2: Letter6 = SHorof(C6) + " مليار" 
      End Select 
      If Letter6 <> "" And Letter5 <> "" Then Letter6 = Letter6 + " و" + Letter5 
      If Letter6 = "" Then Letter6 = Letter5 
      SHorof = Letter6 
       
End Function 


وهذا كود بحث باكثر من طريقة والجمع بالارقام واظهارها بالحروف بجانب الارقام (( عبر label وعددهم 11 label))

PHP كود :

Private Sub Command1_Click() 

Dim b   As String 
b = " هذا أجمالي السحب لجميع الموظفين " 
Select Case Combo1.ListIndex 
Case 0 
Adodc1.RecordSource = "select *from stor where no_job=" & Val(Text1.Text) 
Adodc1.Refresh 
Adodc2.RecordSource = "select sum(op),sum(do),sum(cheke),sum(teeth),sum(eye),sum(bayby),sum(ded),sum(out),sum(help),sum(hurt),sum(totel) from stor where no_job=" & Val(Text1.Text) 
Adodc2.Refresh 
If Val(Text3.Text) Or Val(Text4.Text) Or Val(Text5.Text) Or Val(Text6.Text) Or Val(Text7.Text) Or Val(Text8.Text) Or Val(Text9.Text) Or Val(Text10.Text) Or Val(Text11.Text) > 0 Then 

S1 = Horof(Text3.Text) 
S2 = Horof(Text2.Text) 
S3 = Horof(Text7.Text) 
S4 = Horof(Text8.Text) 
S5 = Horof(Text9.Text) 
S6 = Horof(Text10.Text) 
S7 = Horof(Text13.Text) 
S8 = Horof(Text11.Text) 
S9 = Horof(Text4.Text) 
S10 = Horof(Text5.Text) 
S11 = Horof(Text6.Text) 
Else 
S1.Caption = "صفر ريال" 
S2.Caption = "صفر ريال" 
S3.Caption = "صفر ريال" 
S4.Caption = "صفر ريال" 
S5.Caption = "صفر ريال" 
S6.Caption = "صفر ريال" 
S7.Caption = "صفر ريال" 
S8.Caption = "صفر ريال" 
S9.Caption = "صفر ريال" 
S10.Caption = "صفر ريال" 
S11.Caption = "صفر ريال" 

End If 

Case 1 
Adodc1.RecordSource = "select *from stor where name=  '" & Text1.Text & "'" 
Adodc1.Refresh 
Adodc2.RecordSource = "select sum(op),sum(do),sum(cheke),sum(teeth),sum(eye),sum(bayby),sum(ded),sum(out),sum(help),sum(hurt),sum(totel) from stor where name=  '" & Text1.Text & "'" 
Adodc2.Refresh 
If Val(Text3.Text) Or Val(Text4.Text) Or Val(Text5.Text) Or Val(Text6.Text) Or Val(Text7.Text) Or Val(Text8.Text) Or Val(Text9.Text) Or Val(Text10.Text) Or Val(Text11.Text) > 0 Then 

S1 = Horof(Text3.Text) 
S2 = Horof(Text2.Text) 
S3 = Horof(Text7.Text) 
S4 = Horof(Text8.Text) 
S5 = Horof(Text9.Text) 
S6 = Horof(Text10.Text) 
S7 = Horof(Text13.Text) 
S8 = Horof(Text11.Text) 
S9 = Horof(Text4.Text) 
S10 = Horof(Text5.Text) 
S11 = Horof(Text6.Text) 
Else 
S1.Caption = "صفر ريال" 
S2.Caption = "صفر ريال" 
S3.Caption = "صفر ريال" 
S4.Caption = "صفر ريال" 
S5.Caption = "صفر ريال" 
S6.Caption = "صفر ريال" 
S7.Caption = "صفر ريال" 
S8.Caption = "صفر ريال" 
S9.Caption = "صفر ريال" 
S10.Caption = "صفر ريال" 
S11.Caption = "صفر ريال" 

End If 
Case 2 
Adodc1.RecordSource = "select *from stor where no_bil=" & Val(Text1.Text) 
Adodc1.Refresh 
Adodc2.RecordSource = "select sum(op),sum(do),sum(cheke),sum(teeth),sum(eye),sum(bayby),sum(ded),sum(out),sum(help),sum(hurt),sum(totel) from stor where no_bil=" & Val(Text1.Text) 
Adodc2.Refresh 
If Val(Text3.Text) Or Val(Text4.Text) Or Val(Text5.Text) Or Val(Text6.Text) Or Val(Text7.Text) Or Val(Text8.Text) Or Val(Text9.Text) Or Val(Text10.Text) Or Val(Text11.Text) > 0 Then 

S1 = Horof(Text3.Text) 
S2 = Horof(Text2.Text) 
S3 = Horof(Text7.Text) 
S4 = Horof(Text8.Text) 
S5 = Horof(Text9.Text) 
S6 = Horof(Text10.Text) 
S7 = Horof(Text13.Text) 
S8 = Horof(Text11.Text) 
S9 = Horof(Text4.Text) 
S10 = Horof(Text5.Text) 
S11 = Horof(Text6.Text) 
Else 
S1.Caption = "صفر ريال" 
S2.Caption = "صفر ريال" 
S3.Caption = "صفر ريال" 
S4.Caption = "صفر ريال" 
S5.Caption = "صفر ريال" 
S6.Caption = "صفر ريال" 
S7.Caption = "صفر ريال" 
S8.Caption = "صفر ريال" 
S9.Caption = "صفر ريال" 
S10.Caption = "صفر ريال" 
S11.Caption = "صفر ريال" 

End If 
Case 3 
Adodc1.RecordSource = "select *from stor where on_Card=" & Val(Text1.Text) 
Adodc1.Refresh 
Adodc2.RecordSource = "select sum(op),sum(do),sum(cheke),sum(teeth),sum(eye),sum(bayby),sum(ded),sum(out),sum(help),sum(hurt),sum(totel) from stor where on_Card=" & Val(Text1.Text) 
Adodc2.Refresh 
Text14.Text = Text14.Text + Text1.Text 
If Val(Text3.Text) Or Val(Text4.Text) Or Val(Text5.Text) Or Val(Text6.Text) Or Val(Text7.Text) Or Val(Text8.Text) Or Val(Text9.Text) Or Val(Text10.Text) Or Val(Text11.Text) > 0 Then 

S1 = Horof(Text3.Text) 
S2 = Horof(Text2.Text) 
S3 = Horof(Text7.Text) 
S4 = Horof(Text8.Text) 
S5 = Horof(Text9.Text) 
S6 = Horof(Text10.Text) 
S7 = Horof(Text13.Text) 
S8 = Horof(Text11.Text) 
S9 = Horof(Text4.Text) 
S10 = Horof(Text5.Text) 
S11 = Horof(Text6.Text) 
Else 
S1.Caption = "صفر ريال" 
S2.Caption = "صفر ريال" 
S3.Caption = "صفر ريال" 
S4.Caption = "صفر ريال" 
S5.Caption = "صفر ريال" 
S6.Caption = "صفر ريال" 
S7.Caption = "صفر ريال" 
S8.Caption = "صفر ريال" 
S9.Caption = "صفر ريال" 
S10.Caption = "صفر ريال" 
S11.Caption = "صفر ريال" 

End If 
Case 4 

Adodc1.RecordSource = "select *from stor;" 
Adodc1.Refresh 
Adodc2.RecordSource = "select sum(op),sum(do),sum(cheke),sum(teeth),sum(eye),sum(bayby),sum(ded),sum(out),sum(help),sum(hurt),sum(totel) from stor;" 
Adodc2.Refresh 
Text14.Text = b 
If Val(Text3.Text) Or Val(Text4.Text) Or Val(Text5.Text) Or Val(Text6.Text) Or Val(Text7.Text) Or Val(Text8.Text) Or Val(Text9.Text) Or Val(Text10.Text) Or Val(Text11.Text) > 0 Then 

S1 = Horof(Text3.Text) 
S2 = Horof(Text2.Text) 
S3 = Horof(Text7.Text) 
S4 = Horof(Text8.Text) 
S5 = Horof(Text9.Text) 
S6 = Horof(Text10.Text) 
S7 = Horof(Text13.Text) 
S8 = Horof(Text11.Text) 
S9 = Horof(Text4.Text) 
S10 = Horof(Text5.Text) 
S11 = Horof(Text6.Text) 
Else 
S1.Caption = "صفر ريال" 
S2.Caption = "صفر ريال" 
S3.Caption = "صفر ريال" 
S4.Caption = "صفر ريال" 
S5.Caption = "صفر ريال" 
S6.Caption = "صفر ريال" 
S7.Caption = "صفر ريال" 
S8.Caption = "صفر ريال" 
S9.Caption = "صفر ريال" 
S10.Caption = "صفر ريال" 
S11.Caption = "صفر ريال" 

End If 

End Select 

End Sub 


ان شاء الله تستفيد منه