รหัสต้นฉบับเพื่อการศึกษา

File : numtochar.asp. ID : 2109
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Frame
<body><form action=numtochar.asp method=post>
<input name=num value="1234567.25">
<input type=submit></form>
<%
dim n1(10), n10(10), n100(7), num, pointaddr, cnum, ln, l
num = request.form("num")
n1(0)="": n1(1)="หนึ่ง": n1(2)="สอง": n1(3)="สาม": n1(4)="สี่": n1(5)="ห้า"
n1(6)="หก": n1(7)="เจ็ด": n1(8)="แปด": n1(9)="เก้า": n10(1)="สิบ"
n10(2)="ยี่สิบ": n10(3)="สามสิบ": n10(4)="สี่สิบ": n10(5)="ห้าสิบ": n10(6)="หกสิบ"
n10(7)="เจ็ดสิบ": n10(8)="แปดสิบ": n10(9)="เก้าสิบ": n100(7)="ล้าน"
n100(6)="แสน": n100(5)="หมื่น": n100(4)="พัน": n100(3)="ร้อย": n100(2)="สิบ"
pointaddr = instr(1,num,".")
if pointaddr > 0 then
  usenum = left(num,pointaddr - 1)
  restnum = left(right(num,len(num) - pointaddr),2)
else
  usenum = num
end if
cnum = ""
ln = len(usenum)
for i = 1 to ln
  n = cint(mid(usenum,i,1))
  if i > ln - 2 then
    if i = ln - 1  then       
      cnum = cnum + n10(n) ' หลักสิบ
    else 
      cnum = cnum + n1(n)  ' หลักหน่วย
    end if
  else
    if n > 0 then
      cnum = cnum + n1(n)
      cnum = cnum + n100(ln - i + 1)
    end if  
  end if
next
response.write(cnum)
if pointaddr = 0 or cdbl(num) = 0 then
  if cdbl(num) = 0 then
    response.write("ศูนย์บาท")
  else
    response.write("บาทถ้วน")  
  end if
else
  cnum = "บาท"
  ln = len(restnum)
  for i = 1 to ln  
    n = cint(mid(restnum,i,1))
    if ln > 1 and i = 1 then
      cnum = cnum + n10(n)
    else
      if n = 1 and i <> 1 then
        cnum = cnum + "เอ็ด"
      else
        cnum = cnum + n1(n)
      end if
	end if
  next
  response.write(cnum & "สตางค์")
end if
%>
</body>