Sivakumar

• Feb 3rd, 2014

 

Code
Dim a,b,c,d,res


a=inputbox("Enter the value between 1 to 900")


b=a mod 10


c=right((a-b)*100/100,2)


d=a*1000/1000-c-b


b=cstr(b)


If b=0 and c=0 Then


        msgbox third(d)


        elseif c=0 then


        msgbox third(d) &" "&first(b)


        else


        msgbox third(d)&""&" " &sec(c) &first(b)


End If


 


Function first(b)


   Select Case (b)


case 0:


res=""


case 1:


res="one"


case 2:


res="Two"


case 3:


res="Three"


case 4:


res="Four"


case 5:


res="Five"


case 6:


res="Six"


case 7:


res="Seven"


case 8:


res="Eight"


case 9:


res="Nine"


End Select


first=res


End Function


Function sec(c)


Select Case (c)


case 10:


res="ten"


case 20:


res="Twenty"


case 30:


res="Thirty"


case 40:


res="Fourty"


case 50:


res="Fifty"


case 60:


res="Sixty"


case 70:


res="Seventy"


case 80:


res="Eighty"


case 90:


res="Ninety"


End Select


sec=res


End Function


Function third(d)


Select Case (d)


case 100:


res="Hundred"


case 200:


res="Two Hundred"


case 300:


res="Three Hundred"


case 400:


res="Four Hundred"


case 500:


res="Five Hundred"


case 600:


res="Six Hundred"


case 700:


res="Seven Hundred"


case 800:


res="Eight Hundred"


case 900:


res="Nine Hundred"


End Select


third=res


End Function