|
|
|
|
 |
|
소피아 / 2002-02-25 / 오후 4:39:54 / 211.237.95.214
조회수 : 145
|
| [질문] 돈계산에 대한 질문...(^^)
|
금액을 출력하는 창에서 형식을 맞추어 주고자 합니다.
function MoneyWrite(MValue) '실입금액(기납부)
dim nfor, mTemp
mTemp = ""
for nFor = Len(MValue) to 2 step -1
if ( nfor mod 3 ) = 0 then
mTemp = Mid(MValue, nFor - 1, 1) & ","
& mTemp
else
if Len(MValue) = nFor then
mTemp = mTemp & Mid(MValue, nFor - 1, 1)
mTemp = Mid(MValue, nFor - 1, 1) & mTemp
end if
next
MoneyWrite = mtemp & " 원"
end function
이렇게 함수를 선언하구요.
아래 출력부분에 이렇게 하면
<td height="44" bgcolor="#EEF1E2" width="76">
<%=MoneyWrite(Rs(2))%></td>
값이 12,676, 원 이렇게 출력이 됩니다.
로직이 잘 못 섰는가 ?
우잉 어떻게 하면 되나요 ?
조언 좀 부탁합니다.
前) 할인료 -----> 126766
現) 할인료 -----> 12,676, 원 |
|
|
