If i = 1 And Val(Left(FIGURE, 2)) > 0 ThenĮlseIf i = 2 And Val(Left(FIGURE, 2)) > 0 ThenĮlseIf i = 3 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1))) SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1))) SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2))) This is the well defined and customized micros program for Indian Rupee Value:įunction SpellNumber(amt As Variant) As Variant Tenstr = "twenty thirty forty fifty sixty seventyeighty ninety " Teenstr = "one two three four five six seven eight nine ten eleven twelve thirteen fourteen fifteen sixteen seventeeneighteen nineteen "
Insert graph in excel for mac mod#
Getword = retten(Fix(t3 / 10)) & " " & retteen(t3 Mod 10) & plas Zastring = zastring & getword(park, " only")įunction getword(t3 As Integer, plas As String) As String Zastring = zastring & getword(park, "hundred ") Zastring = zastring & getword(park, "thousand ") Zastring = zastring & getword(park, "lakh ") Zastring = zastring & getword(park, "crore ")
Public Function f2w(num As Long) As Stringĭim intpart As Long, decpart As Integer, park As Integer, zastring As String
0 kommentar(er)
