<!--#포함 파일=common.asp-->
<%
희미한 tmpnum
'첫 번째 페이지에서 전달된 소문자 금액
tmpnum=request("페이지1번호")
'전화해서 금액을 대문자로 표시
response.write rmb(cdbl(tmpnum))
응답.끝
%>
common.asp
<%
함수 rmb(num)
num = FormatNumber(num, 2)
DimnumList
희미한 rmbList
DimnumLen
희미한 숫자 문자
희미한 숫자
희미한 n
희미한 n1, n2
wxya
numList = "0, 하나, 둘, 셋, 넷, 다섯, 여섯, 여덟, 아홉"
rmbList = "센트 1억 1억 1억"
num > 9999999999999.99이면
rmb = "RMB 값이 범위를 벗어났습니다."
종료 기능
종료
numstr = CStr(num * 100)
numLen = 길이(numstr)
n=1
n <= numLen 동안 수행
numChar = CInt(Mid(numstr, n, 1))
n1 = Mid(numList, numChar + 1, 1)
n2 = Mid(rmbList, numLen - n + 1, 1)
Not n1 = "0"인 경우
hz = hz + CStr(n1) + CStr(n2)
또 다른
n2 = "1억" 또는 n2 = "10,000" 또는 n2 = "위안" 또는 n1 = "0"인 경우
올바른 동안 수행(hz, 1) = "0"
hz = 왼쪽(hz, Len(hz) - 1)
고리
종료 조건
If (n2 = "1억" Or (n2 = "10,000" And Right(hz, 1) <> "1억") Or n2 = "1억") Then
hz = hz + CStr(n2)
또 다른
If Left(Right(hz, 2), 1) = "0" 또는 Right(hz, 1) <> "1억" 그러면
hz = hz + n1
종료 조건
종료 조건
종료 조건
n = n + 1
고리
올바른 동안 수행(hz, 1) = "0"
hz = 왼쪽(hz, Len(hz) - 1)
고리
Right(hz, 1) = "원"이면
hz = hz + "전체"
종료 조건
인민폐=hz
함수 종료
%>
이 버전은 소수점 이하 자릿수 누락 문제를 해결했으며 처리 방법은 회계 방법과 일치합니다!