Select Case a
Case 0
horof = "sefr"
Case 1
horof = "yek"
Case 2
horof = "do"
Case 3
horof = "seh"
Case 4
horof = "chahar"
Case 5
horof = "panj"
Case 6
horof = "shesh"
Case 7
horof = "haft"
Case 8
horof = "hasht"
Case 9
horof = "noh"
End Select
End Function
Public Function horof1()
End Function
Public Function horof2(a As Integer) As String
k% = a Mod 10
a = a \ 10
If k > 0 Then
s1 = "," & horof(k)
End If
Select Case a
Case 2
horof2 = "bist"
Case 3
horof2 = "sy"
Case 4
horof2 = "chehel"
Case 5
horof2 = "panjah"
Case 6
horof2 = "shast"
Case 7
horof2 = "haftad"
Case 8
horof2 = "hashtad"
Case 9
horof2 = "navad"
End Select
End Function
Public Function horof3(a As Integer) As String
k% = a Mod 100
a = a \ 100
If k > 0 Then
s1 = horof(k)
s2 = "," & horof2(k)
End If
Select Case a
Case 1
horof3 = "yeksad" & s2 & s1
Case 2
horof3 = "devist" & s2 & s1
Case 3
horof3 = "sysad" & s2 & s1
Case 4
horof3 = "chaharsad" & s2 & s1
Case 5
horof3 = "pansad" & s2 & s1
Case 6
horof3 = "sheshsad" & s2 & s1
Case 7
horof3 = "haftsad" & s2 & s1
Case 8
horof3 = "hasghtsad" & s2 & s1
Case 9
horof3 = "nohsad" & s2 & s1
End Select
End Function
Public Function horof4(a As Double) As String
k# = a Mod 1000
If k > 0 Then
s1 = "" & horof3(k)
End If
a = a \ 1000
horof4 = horof(a) & " hezar" & s1
End Function
Public Function horof5()
End Function
Public Function horof6()
End Function
Public Function horof7()
End Function
Public Function tabdil(a As Integer) As String
Select Case a
Case Is < 20
tabdil = horof(a)
Exit Function
Select Case a
Case Is < 100
tabdil = horof2(a)
Exit Function
Case Is < 1000
tabdil = horof3(a)
Exit Function
Case Is < 10000
tabdil = horof4(a)
Exit Function
End Function
Private Sub Command1_Click()
Label1.Caption = horof(Val(Text1.Text))
End Sub
