[ASP] 금액함수 - 0이 4개면 만원, 아니면 숫자보이고 원표기

메인과 서브페이지에 제목과 같이 금액의 끝이 숫자 '0' 4개로 끝나면 한글로 '만원' 글자가 표기되고, 숫자 0이 4개 이하면 숫자를 다 보여주고 '원' 글자가 표기되도록 해달라는 업체 의뢰가 있어서 예전에 만든 ASP 함수입니다.

 

몇 군데 쓰이는 데가 있어서 함수로 한 것일 뿐이지 상당히 단순 무식한 방법입니다.

필요하신 분은 더 나은 방향으로 개선해서 쓰시면 좋겠습니다.

 

* 금액이 만원 단위일 경우 표기 처리함수

 

 

Function manwon_cut(str)
    dim len1
    len1 = len(str)

    if len1=8 then
        manwon_cut = left(str,4)
        manwon_cut = manwon_cut & " 만원"
    elseif len1=7 then
        manwon_cut = left(str,3)
        manwon_cut = manwon_cut & " 만원"
    elseif len1=6 then
        manwon_cut = left(str,2)
        manwon_cut = manwon_cut & " 만원"
    elseif len1=5 then
        manwon_cut = left(str,1)
        manwon_cut = manwon_cut & " 만원"
    else
        manwon_cut = str
        manwon_cut = manwon_cut & " 원"
    end if
End Function