به جای عدد هر سطر حروف معادل آن

برای این کار یک frmoul fildes ایجاد کرده و کد زیر را درون ان درج می کنیم

numbervar mycount1;

numbervar countdahi1;

numbervar count1;

stringvar mystr1;



whileprintingrecords;

mycount1:=mycount1+1;

count1:=mycount1;

mystr1:="";



/////////////betwin 20 to 99

if (count1>19)and(count1<100) then

countdahi1:=count1-(count1 mod 10);

select countdahi1

case 20:

mystr1:=" بیست "

case 30:

mystr1:=" سی "

case 40:

mystr1:=" چهل "

case 50:

mystr1:=" پنجاه "

case 60:

mystr1:=" شصت "

case 70:

mystr1:=" هفتاد "

case 80:

mystr1:=" هشتاد "

case 90:

mystr1:=" نود ";

if (count1>19)and(count1<100) then

count1:=count1 mod 10;

/////////////betwin 10 to 19

select count1

case 10:

mystr1:=" ده "

case 11:

mystr1:=" یازده "

case 12:

mystr1:=" دوازده "

case 13:

mystr1:=" سیزده "

case 14:

mystr1:=" چهارده "

case 15:

mystr1:=" پانزده "

case 16:

mystr1:=" شانزده "

case 17:

mystr1:=" هفده "

case 18:

mystr1:=" هجده "

case 19:

mystr1:="نوزده";

/////////////betwin 1 to 10

select count1

case 1:

mystr1:=mystr1+" یک "

case 2:

mystr1:=mystr1+" دو "

case 3:

mystr1:=mystr1+" سه "

case 4:

mystr1:=mystr1+" چهار "

case 5:

mystr1:=mystr1+" پنج "

case 6:

mystr1:=mystr1+" شش "

case 7:

mystr1:=mystr1+" هفت "

case 8:

mystr1:=mystr1+" هشت "

case 9:

mystr1:=mystr1+"نه";

mystr1;

البته تا دو رقمی است