demostrong.blogg.se

• 2011 EXCELL FOR MAC MOD

SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 1))) + " HUNDRED " 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 "

2011 EXCELL 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