I'm not sure I can really help, since I don't know Arabic and don't recall well numbers in Hebrew either.

I can, of course, try to ask my husband later today.

In the meantime I found
http://www.dotnet2themax.com/blogs/fbalena/SearchView.aspx?q=numbertotext (generic algorithm)

and checked Downloads section here, but it doesn't seem like we have Arabic version for NumToWords problem.

>hi,
>thank you for reply,
>about convert i'll try.
>
>but what i need....
>i try to get code to print Arabic check,
>i have this code under the first part work fine, the second part i need to convert it to display number as numbers not words , and 3 numbers without rounding ex... (.897 cent).
>
>pls, if you can help me to fix it.
>
>

>PARAMETERS lncurrency
>
>LOCAL lcnothing
>LOCAL lcten,lchundred,lcthousand,lcthousand1,lcmillion
>LOCAL lnlenstr,lccurrency,lccurdaci,lcriyal
>LOCAL lctentxt,lchundredtxt,lcthousandtxt,lcmilliontxt,lcthousandtxt1
>LOCAL lctensep,lchundredsep,lcthousandsep,lcthousandsep1,lcmillionsep
>LOCAL lcallstr,lchundredver
>lcnothing=' فقط لا غير'&& only or just
>STORE '' TO lctentxt,lchundredtxt,lcthousandtxt,lcmilliontxt,lcthousandtxt1,lcriyal
>STORE '' TO lctensep,lchundredsep,lcthousandsep,lcthousand1sep,lcmillionsep
>STORE '0' TO lchundredver,lcthousand1ver,lcthousand1
>STORE '00' TO lcten,lcthousand
>lccurrency=ALLTRIM(STR(INT(lncurrency))) && will display like 14
>lccurdaci=RIGHT(ALLTRIM(STR(lncurrency,11,2)),2)&& will display only decimal side
>lnlenstr=LEN(ALLTRIM(STR(INT(lncurrency)))) && will caculate str lenght
>IF lnlenstr<1
>RETURN .f.
>ENDIF
>
>SELECT arver
>SET ORDER TO no
>
>
>IF lccurdaci!='00'
>SEEK lccurdaci
>lccurdacitxt=ALLTRIM(arvalue)+' &#1607;&#1604;&#1604;&#1577;'&¢
>lccurdacisep=' &#1608;'
>ELSE
>lccurdacitxt=''
>lccurdacisep=''
>endif
>lccurrency=PADL(lccurrency,8,'0')
>lcten=lccurrency
>lcten=SUBSTR(lccurrency,7,2)
>lchundredver=SUBSTR(lccurrency,6,1)
>*!*	IF !USED('arver')
>*!*	USE arver IN 0
>*!*	SET ORDER TO no
>*!*	endif
> IF lcten!='00'
>  SEEK lcten
>  lctentxt=ALLTRIM(arvalue)
> lctensep='&#1608;'&&and
> endif
> lchundred=lchundredver
> IF lchundred!='0'
> lchundred=lchundred+'00'
> SEEK lchundred
> lchundredtxt=ALLTRIM(arvalue)
> lchundredsep=' &#1608; '&&and
> endif
> IF lcten='00'
> lchundredsep=''
> ENDIF
> lcthousand1ver=SUBSTR(lccurrency,3,1)
> lcthousand1=lcthousand1ver
> IF lcthousand1!='0'
>  lcthousand1=lcthousand1+'00'
> SEEK lcthousand1
> lcthousandtxt1=ALLTRIM(arvalue)
> lcthousand1sep=' &#1608; '&&and
> IF lcthousand1='0' AND VAL(SUBSTR(lccurrency,4,2))<3 AND VAL(SUBSTR(lccurrency,4,2))>0
> lcthousandtxt1=ALLTRIM(arvalue)+' &#1575;&#1604;&#1601;'&&thousand
> ENDIF
>endif
>  lcthousandver=SUBSTR(lccurrency,4,2)
> lcthousand=lcthousandver
> IF lcthousand!='00'
>	 IF VAL(SUBSTR(lcthousand,1,2))>10
>	  SEEK lcthousand
>	    		lcthousandtxt=ALLTRIM(arvalue)+ ' &#1571;&#1604;&#1601;'&&thousand
>  		lcthousandsep=' &#1608;'&&and
> 	 ENDIF
> 	 IF VAL(SUBSTR(lcthousand,1,2))=10
>		 lcthousand=lcthousand+'000'
>		  SEEK lcthousand
>		  lcthousandtxt=ALLTRIM(arvalue)
>		  lcthousandsep=' &#1608;'&&and
>	ENDIF
>	IF VAL(SUBSTR(lcthousand,1,2))<10
> 		lcthousand=SUBSTR(lcthousand,1,2)&&+'00' &&
>		 SEEK lcthousand
>  		lcthousandtxt=ALLTRIM(arvalue)+' &#1575;&#1604;&#1601;'&&thousand
>  		lcthousandsep=' &#1608;'
>  		IF VAL(SUBSTR(lcthousand,1,2))<10 AND SUBSTR(lccurrency,4,1)='0' AND SUBSTR(lccurrency,3,1)='0'
>  		lcthousand=SUBSTR(lcthousand,2,1)+'000' &&
>		 SEEK lcthousand
>  		lcthousandtxt=ALLTRIM(arvalue)
>  		lcthousandsep=' &#1608;'&&and
>  		endif
>	endif
>  ENDIF
>  IF lcthousand='00' AND SUBSTR(lccurrency,3,1)!='0'
>  		lcthousandtxt=' &#1575;&#1604;&#1601;'&&thousand
>  		lcthousandsep=' &#1608;'&&and
>  ENDIF
>
>  IF lcten='00' AND lchundred='0'
>  lcthousandsep=''
>  endif
> IF lcthousand='00'
> lcthousand1sep=''
> endif
>
> lcmillion=SUBSTR(lccurrency,1,2)
> IF lcmillion!='00'
> IF SUBSTR(lccurrency,2,1)!='0' AND SUBSTR(lccurrency,1,1)='0'
> lcmillion=SUBSTR(lccurrency,2,1)+'000000'
> ENDIF
> IF SUBSTR(lccurrency,1,1)!='0'
>   lcmillion=SUBSTR(lccurrency,1,2)
> endif
> SEEK lcmillion
>IF SUBSTR(lccurrency,1,1)!='0'
>lcmilliontxt=ALLTRIM(arvalue)+' &#1605;&#1604;&#1610;&#1608;&#1606;'&&milion
>ELSE
>lcmilliontxt=ALLTRIM(arvalue)
>endif
>lcmillionsep=' &#1608; '&&and
>ENDIF
>
> IF lcten='00' AND lchundredver='0' AND SUBSTR(lccurrency,4,2)='00'
> lcthousandsep=''
> ENDIF
>  IF lcten='00' AND lchundredver='0'
>  lchundredsep=''
>  ENDIF
> IF lcten='00' AND lchundredver='0' AND lcthousand='00' AND lcthousand1='0'
> lcmillionsep=''
> ENDIF
>lccurdacisep1=alLTRIM(lcmilliontxt+lcmillionsep+lcthousandtxt1+lcthousand1sep+lcthousandtxt+lcthousandsep+;
>lchundredtxt+lctentxt)
>lccurdacisep1=ALLTRIM(lccurdacisep1)
>IF LEN(lccurdacisep1)=0
>lccurdacisep=''
>IF LEN(lccurdacisep1)=0 AND LEN(lccurdacitxt)=0
>lcnothing='  &#1589;&#1601;&#1585; &#1601;&#1602;&#1591; &#1604;&#1575; &#1594;&#1610;&#1585; '&& only zero
>endif
>ENDIF
>IF LEN(lccurdacisep1)>0
>lcriyal= ' &#1585;&#1610;&#1575;&#1604;'&&$us dollar
>ELSE
>lcriyal=''
>endif
>lcallstr=ALLTRIM(lcmilliontxt+lcmillionsep+lcthousandtxt1+lcthousand1sep+lcthousandtxt+lcthousandsep+;
>lchundredtxt+lchundredsep+lctentxt+lcriyal+lccurdacisep+lccurdacitxt+lcnothing)
>
>RETURN lcallstr
>

>
>
>
>>Don't remember FORMAT funciton, but AFAIK it's similar to transform.
>>http://msdn2.microsoft.com/en-us/library/59bz1f0h.aspx
>>
>>MID, AFAIK, is equavalent of SUBSTR()
>>http://msdn2.microsoft.com/en-us/library/05e63829.aspx
>>
>>Case is easily translated to DO CASE.
>>
>>So, you should be able to translate this code easily.
>>
>>>hi,
>>>thank you for reply,
>>>Which bit are you having trouble with? all
>>>
>>>